inst/app/server.R

In Pandora-IsoMemo/resources: Food Reconstruction Using Isotopic Transferred Signals

library(ReSources)

options(shiny.maxRequestSize = 200*1024^2)

server <- function(input, output, session) {
  savedMaps <- reactiveVal(list())
  fruitsData <- reactiveVal(list(event = NULL, data = NULL))
  isoData <- reactiveVal(NULL)
  isoDataExport <- reactiveVal(list(event = NULL, data = NULL))

  observe({
    hideTab("tab", "model2D")
  })

  observeEvent(isoDataExport()$event, {
    isoData(isoDataExport()$data)
    showTab("tab", "model2D", select = TRUE)
  })

  shiny::callModule(fruitsTab, "fruits", isoDataExport = isoDataExport)

  if (isoInstalled()) {
    callModule(DSSM::modelResults2D, "model2D", isoData = isoData,
               savedMaps = savedMaps, fruitsData = fruitsData)
  }

  observeEvent(input$getHelp, {
    showModal(modalDialog(
      title = "Help",
      easyClose = TRUE,
      getHelp(input$tab),
      footer = modalButton("Ok")
    ))
  })
}