Nothing
timer <- function(start.time) {
duration <- difftime(Sys.time(), start.time, units = "auto")
units <- attr(duration, "units")
duration <- round(abs(as.numeric(duration)), 1)
message("It took ", duration, " ", units, ".")
invisible(paste(duration, units))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.