Nothing
.onAttach <- function(libname, pkgname){
version <- read.dcf(file=system.file("DESCRIPTION", package=pkgname), fields="Version")
packageStartupMessage("This is ", paste(pkgname, version))
packageStartupMessage(pkgname, " is BETA software! Please report any bugs.")
}
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.