toto <- function(logFile) { sink(logFile, split=T) Sys.sleep(5) cat("step0\n") sink(logFile,append=T, split=T) for (i in 1:2) { Sys.sleep(5) cat(paste0("step",i,"\n")) } sink() }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.