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')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.