.Last <- function() {
# save command history here? ask=graphics
#update.packages(ask= FALSE)
#timestamp(,prefix=paste("##------ [",getwd(),"] ",sep=""))
#try(savehistory("~/.Rhistory"))
cat("\nGoodbye at ", date(), "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.