Nothing
httpget_session_console <- function(filepath, requri){
#load data
myeval <- readRDS(sessionfile <- file.path(filepath, ".REval"));
mymsg <- extract(myeval, "console");
#render
reqformat <- requri[1];
httpget_object(mymsg, reqformat, "console", "text");
}
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.