storeobject <- function(obj){
#save displaylist to file
plottempfile <- tempfile();
saveRDS(obj, plottempfile);
#store the file
output <- storefile(plottempfile);
#clean up
unlink(plottempfile);
#return
return(output);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.