Nothing
## Record original state
ovars <- ls()
oenvs <- oenvs0 <- Sys.getenv()
oopts0 <- options()
## Default options
oopts <- options(
warn=1L
)
isPackageInstalled <- R.utils::isPackageInstalled
loadToEnv <- R.utils::loadToEnv
fullTest <- (Sys.getenv("_R_CHECK_FULL_") != "")
## Local functions for test scripts
printf <- function(...) cat(sprintf(...))
mstr <- function(...) message(paste(capture.output(str(...)), collapse="\n"))
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.