library(dplyr)
logFile <- tempfile(pattern = "log_{date}_{time}", fileext = ".txt")
createLogFile(logFile = logFile)
logMessage("Starting analysis")
1 + 1
logMessage("Analysis finished")
res <- summariseLogFile()
glimpse(res)
tidy(res)
Run the code above in your browser using DataLab