inst/App/leftPanel/mid/serverMessageFromAcePageIn.R

In mslegrand/pointR: pointR

processMssgFromAceMssgPageIn<-function(sender, mssg){
    # cat('>---> processMssgFromAceMssgPageIn\n')
    
    
    if(sender %in% c('cmd.commit', 'cmd.add.column', 'cmd.add.asset') && !is.null(getAssetName())){ 
      processCommit() # this sets the sourceType
      if(sender=='cmd.add.asset'){
        name=mssg$selector$assetName
      } else {
        name=getAssetName() # 'cmd.commit', 'cmd.add.column'
         # cat('getAssetName()=', format(getAssetName()), "\n")
      }
      tibs<-getPtDefs()$tib
      pruneDeadRowsFromWidgetDB()
      resetSelectedTibbleName(tibs=tibs, name=name)
      
    } else { # else covers: 'cmd.tabChange',  # 'cmd.file.new', 'cmd.openFileNow',

# getMode -----------------------------------------------------------------

      # if(sender %in% c('cmd.file.new',  'cmd.openFileNow')){
      #   base::stop('ace sender=',sender,"\n")
      # }
      
      if(length(input$pages) >0 && 
         nchar(input$pages)>0 && 
         !identical(selectedAsset$tabId, input$pages) 
      ){
        storeAssetState()
        processCommit() # this sets the sourceType
        reOrgPanels(id=mssg$id, mode= getModeX() )
        restoreAssetState(input$pages) # copies from db to assetSelection
        saveCurrentTab(input$pages) # record to file id of current tab
        savePage(input$pages) # require for new page that was not committed
        sendFileTabsMessage(selected=input$pages, resize=runif(1)) 
      } else{ # case: length(input$pages)==0 || identical(selectedAsset$tabId, input$pages) ==TRUE
        
      }
      reOrgPanels(id=mssg$id, mode= getModeX() ) 
      # end assetUpdate:
    } 
    setTrigger('redraw')
    # cat('<---< processMssgFromAceMssgPageIn\n\n')
}