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