# \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)
# }
fileNameList = logFileNamesGetAll(dataDirectory=datd)
logdf = logFileListRead(fileNameList,
readFunction=logFileRead,
columnList=logFileFieldsGetIIS(fileNameList[[1]]))
logbasedf = logFileListRead(fileNameList,
readFunction=logFileRead,
columnList=logFileFieldsGetIIS(fileNameList[[1]]))
plotWriteFilenameToLaTexFile(
plotSaveGG(
percentileBaselinePrint(logdf$elapsed,
logbasedf$elapsed,
columnNames = c("Delta", "Current", "Baseline", "Percentile"))
, "xxx")
)
# \dontshow{
# clean up example work directory
unlink(paste0(configFilesDirectoryNameGet(),"/*.jpg"))
# }
Run the code above in your browser using DataLab