R/clinical_outcomes_server.R

In CRI-iAtlas/iatlas-app: What the Package Does (One Line, Title Case)

clinical_outcomes_server <- function(
  id,
  cohort_obj
){
  shiny::moduleServer(
    id,
    function(input, output, session) {

      show_co_submodules <- function(cohort_obj){
        cohort_obj$has_classes(c("Survival Time", "Survival Status"))
      }

      call_module_server(
        "clinical_outcomes_survival",
        cohort_obj,
        server_function = clinical_outcomes_survival_server,
        ui_function = clinical_outcomes_survival_ui,
        test_function = shiny::reactive(show_co_submodules)
      )

      call_module_server(
        "clinical_outcomes_heatmap",
        cohort_obj,
        server_function = clinical_outcomes_heatmap_server,
        ui_function = clinical_outcomes_heatmap_ui,
        test_function = shiny::reactive(show_co_submodules)
      )
    }
  )
}