Nothing
httpget_session_warnings <- function(filepath, requri){
#load data
myeval <- readRDS(file.path(filepath, ".REval"));
mywarnings <- extract(myeval, "warning");
mywarnings <- lapply(mywarnings, "[[", "message");
#render
reqformat <- requri[1];
httpget_object(mywarnings, reqformat, "warnings", "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.