R/app_server.R

In schyen/OCMSExplorer: OCMSlooksy

#' @import shiny
#' @import DT
#' @import datasets
#' @import tidyr
#' @import dplyr
#' @import ggplot2
#'
app_server <- function(input, output, session) {
  # List the first level callModules here

  options(shiny.maxRequestSize=100*1024^2)
  callModule(mod_intro_server, "intro_ui_1", parent_session = session)

  cross_module1 <- callModule(mod_import_server, "import_ui_1",
                              parent_session = session)
  # output$check <- renderPrint({
  #
  # })

  # hide qc tab if parameter table not detected
  observe({
    req(cross_module1$import_status)
    if(cross_module1$import_status == "Data validation successful" &&
      'parameter_table' %in% names(cross_module1$data_db)) {
      showTab(inputId = 'tabs', target = 'qc')
    }
  })

  observeEvent(input$tabs, {
    if(input$tabs == 'qc') {
      callModule(mod_qc_server, "qc_ui_1", cross_module1)
    }
  }, ignoreInit = TRUE)

  observe({
    hideTab(inputId = 'tabs', target = "qc")
    hideTab(inputId = 'tabs', target = 'qualityfilter')
    hideTab(inputId = 'tabs', target = "analysis_module")
  })

  observe({
    req(cross_module1$import_status)
    if(cross_module1$import_status == "Data validation successful") {
      showTab(inputId = 'tabs', target = 'qualityfilter')
    }
  })

  cross_module2 <- callModule(mod_qualityfilter_server,
                                  "qualityfilter_ui_1", cross_module1)

  observe({
    req(cross_module1$import_status)
    if(cross_module1$import_status == "Data validation successful" &&
       !is.null(cross_module2$work_db)) {
      showTab(inputId = 'tabs', target = "analysis_module")
    }
  })

  # relative abundance
  observeEvent(input$tabs, {
    if(input$tabs == 'profile') {
      callModule(mod_profile_server, "profile_ui_1", cross_module2)
    }

  }, ignoreInit = TRUE)

  # alpha diversity
  observeEvent(input$tabs, {
    if(input$tabs == 'alpha') {
      callModule(mod_alpha_server, "alpha_ui_1", cross_module2)
    }
  }, ignoreInit = TRUE)

  # beta diversity
  observeEvent(input$tabs, {
    if(input$tabs == 'beta') {
      callModule(mod_beta_server, "beta_ui_1", cross_module2)
    }
  }, ignoreInit = TRUE)


  # differential abundance
  observeEvent(input$tabs, {
    if(input$tabs == 'diff') {
      callModule(mod_diff_abund_server, "diff_abund_ui_1", cross_module2)
    }
  }, ignoreInit = TRUE)

  # feature proportionality
  observeEvent(input$tabs, {
    if(input$tabs == 'prop') {
      callModule(mod_prop_server, "prop_ui_1", cross_module2)
    }
  }, ignoreInit = TRUE)

}