Nothing
#!/usr/bin/r -q
#
# This owes a lot to littler.R in the littler sources
ExcludeVars <- c("R_SESSION_TMPDIR", "R_HISTFILE", "R_LIBRARY_DIR", "R_LIBS",
"R_PACKAGE_DIR", "R_SESSION_INITIALIZED")
IncludeVars <- Sys.getenv()
IncludeVars <- IncludeVars[grep("^R_",names(IncludeVars),perl=TRUE)]
if (.Platform$OS.type == "windows") {
IncludeVars <- gsub("\\\\", "/", IncludeVars, perl=TRUE)
IncludeVars <- gsub("\r", "", IncludeVars, fixed = TRUE)
}
cat(" const char *R_VARS[] = {\n")
for (i in 1:length(IncludeVars)){
if (names(IncludeVars)[i] %in% ExcludeVars)
next
cat(' "',names(IncludeVars)[i],'","',IncludeVars[i],'",\n',sep='')
}
cat(" NULL\n };\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.