Nothing
library(lumberjack)
logfile <- tempfile()
logger <- simple$new(verbose=FALSE)
start_log(women, logger)
women[1,1] <- 2*women[1,1]
women$ratio <- women$height/women$weight
dump_log(file=logfile)
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.