# \dontshow{
datd = paste0(tempdir(),"/minconfigtemp")
unlink(datd)
dir.create(paste0(tempdir(),"/minconfigtemp"))
logfile = paste0(datd,"/log.log")
fileConn = gzfile(system.file("extdata", "compressed.log", package = "WebAnalytics"))
writeLines(readLines(fileConn,n=100),con=logfile)
close(fileConn)
# set the files directory name suitable for an R example
configVariableSet("config.workdir", tempdir())
setDTthreads(threads=1)
# }
f0<-function(n)
{
return(format(n,digits=1,nsmall=0,big.mark=","))
}
f2<-function(n)
{
return(format(n,digits=2,nsmall=2,big.mark=","))
}
logFileName = logFileNamesGetLast(dataDirectory=datd,
directoryNames=c(".", "."),
fileNamePattern="*[.]log")[[1]]
cols = logFileFieldsGetIIS(logFileName)
logdf = logFileRead(logFileName, columnList=cols,
logTimeZone = "", timeFormat = "")
summarydf = summaryTxDataFrameCreate(logdf)
summaryTxTablePrint(summarydf[1:40,c(2,1,4,3)],list(format, f2, f2, f0))
Run the code above in your browser using DataLab