R/io_targets_server.R

Defines functions io_targets_server

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

      call_module_server(
        "distributions",
        cohort_obj,
        server_function = io_target_distributions_server,
        ui_function = io_target_distributions_ui
      )

      call_module_server(
        "datatable",
        cohort_obj,
        server_function = io_target_datatable_server,
        ui_function = io_target_datatable_ui
      )
    }
  )
}
CRI-iAtlas/iatlas-app documentation built on Feb. 7, 2025, 9:02 p.m.