R/app_server.R

In The-Strategy-Unit/723_mh_covid_surge_modelling: Mental Health Covid-19 Surge Modelling

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @import shinydashboard
#' @importFrom dplyr %>%
#' @importFrom purrr lift_dl
app_server <- function(input, output, session) {
  params <- lift_dl(reactiveValues)(params)

  # Model ----

  model_output <- reactive({
    start_month <- min(params$demand[[1]]$month)

    params %>%
      run_model(sim_time) %>%
      get_model_output(start_month)
  })

  # Params Tab ----

  params_page <- params_server("params_page", params, model_output)

  # Home Tag ----

  home_server("home_page", params_page$params_file_path, params_page$upload_event)

  # Demand Tab ----

  demand_server("demand_page", params, params_page$upload_event)

  # Results Tab ----

  results_server("results_page", params, model_output)

  # Surge Tabs ----

  # Surge subpopn tab
  surgetab_server("surge_subpopn", model_output, .data$group, "Subpopulation group")

  # Surge conditions tab
  surgetab_server("surge_condition", model_output, .data$condition, "Condition")

  # Surge service tab
  surgetab_server("surge_service", model_output, .data$treatment, "Treatment")

  # return nothing
  invisible(NULL)
}