R/app_server.R

In curso-r/hamiltonCovid19: Hamilton Covid-19 Dashboard

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function(input, output, session) {

  # Data

  global_data <- hamiltonCovid19::global_data
  irish_data <- hamiltonCovid19::irish_data
  irish_hosp_data <- hamiltonCovid19::irish_hosp_data
  irish_icu_data <- hamiltonCovid19::irish_icu_data
  irish_county_data <- hamiltonCovid19::irish_county_data
  interventions_data <- hamiltonCovid19::interventions_data

  # Options

  options(reactable.theme = theme_reactable())

  # Modules

  callModule(
    mod_summary_ireland_server,
    "summary_ireland_ui_1",
    irish_data,
    irish_hosp_data,
    irish_icu_data,
    irish_county_data
  )

  callModule(
    mod_summary_global_server,
    "summary_global_ui_1",
    global_data
  )

  callModule(
    mod_map_server,
    "map_ui_1",
    irish_county_data
  )

  callModule(
    mod_graphs_server,
    "graphs_ui_1",
    global_data
  )

  callModule(
    mod_animations_server,
    "animations_ui_1",
    global_data
  )

  callModule(
    mod_interventions_server,
    "interventions_ui_1",
    global_data,
    interventions_data
  )

}