.First <-
function() {
cat("Current R.version is:", as.character(getRversion()), "\n")
cat("Current R.repos is:", getOption("repos"), "\n")
cat("Current R.Library is:", .libPaths(), "\n")
cat("Current R.Workdir is:", getwd(), "\n")
cat("\nSuccessfully loaded .Rprofile at:", date(), "\n")
if (file.exists(".RData")) load(file=".RData")
}
.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.