httpget_session_info <- function(filepath, requri){
#load data
myinfo <- readRDS(sessionfile <- file.path(filepath, ".RInfo"));
#render
reqformat <- requri[1];
httpget_object(myinfo, reqformat, "sessionInfo");
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.