Logging with tictoc

gistfile1.txt

# Logging use of tictoc notes
# See https://stackoverflow.com/a/47954069/4606130
#     https://www.jumpingrivers.com/blog/timing-in-r/#the-tictoc-package


tic("timer")
1+1

# When log = TRUE, toc() pushes the measured timing to a list
#    quiet = TRUE prevents from printing the timing

toc(log = TRUE, quiet = TRUE)
log.txt <- tic.log(format = TRUE)
tic.clearlog()


# you can unlist to look into log
#Fetch the results of toc() as formatted text for printing.
log.txt <- tic.log(format = TRUE)

#Extract the list containing measurements in raw format.
log.lst <- tic.log(format = FALSE)


#Since the data is already extracted, clear the tictoc log.
tic.clearlog()

#Convert the list elements to timings. Each element of the list has a start (tic) and end (toc) timestamp.
timings <- unlist(lapply(log.lst, function(x) x$toc - x$tic))