inst/App/fileIO/serverPage2Workspace.R

In mslegrand/pointR: pointR

#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)
  }
}