Nothing
source("incl/start.R")
message("*** Session details ...")
x <- sessionDetails()
print(x)
x <- sessionDetails(env = FALSE)
print(x)
x <- sessionDetails(env = TRUE)
print(x)
y <- x[1:3]
print(y)
stopifnot(all(class(y) == class(x)))
message("*** Session details ... DONE")
source("incl/end.R")
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.