httpget_session_source <- function(filepath, requri){
#load data
myeval <- readRDS(sessionfile <- file.path(filepath, ".REval"));
mysrc <- extract(myeval, "source");
#render
reqformat <- requri[1];
httpget_object(mysrc, reqformat, "warnings", "text");
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.