#workspace save
# presumably to be saved whenever there is a commit
savePage<-function(pageId, path=getWorkSpaceDir()){
if(!is.null(pageId) && nchar(pageId)>0){
log.fin(savePage)
fileName=paste0(path,"/",pageId,".rda")
asel<-reactiveValuesToList(selectedAsset)
fileDescriptor=getFileDescriptor(pageId)
if(length(fileDescriptor)>0){
backdrop=getPageBackDrop(pageId)
grid=getPageSvgGrid(pageId)
trib<-getPageUseTribble(pageId)
dnip<-getPageDnippetsDB(pageId)
widg<-getPageWidgetDB(pageId)
preprocPage<-getPagePreprocPageDB(pageId)
rtv<-c(
fileDescriptor=getFileDescriptor(pageId),
code=getCode(),
assetSelection=asel,
backdrop=backdrop,
grid=grid,
trib=trib,
dnip=dnip,
widg=widg,
preprocPage=preprocPage
)
# ppE<-getPreProcPtEntries(pageId)
# if(length(ppE)!=0 && nrow(ppE)>0){
# rtv<-c(rtv, preprocScripts=ppE)
# }
# if(length(preprocPage))
saveRDS(object=rtv, file = fileName)
}
log.fout(savePage)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.