R/app_server.R

In tvroylandt/gravitype: Gravity Pole emploi

#' @import shiny
app_server <- function(input, output, session) {
  # "strategie du petit r"
  r <- reactiveValues()
  
  # modules
  callModule(mod_input_fap_server, "input_fap_ui_1", r)
  callModule(mod_radar_server, "radar_ui_1", r)
  callModule(mod_tableau_server, "tableau_ui_1", r)
  callModule(mod_evolutions_server, "evolutions_ui_1", r)
  callModule(mod_carto_server, "carto_ui_1", r, type_ind = "ind_tension_all_d")
  callModule(mod_carto_server, "carto_ui_2", r, type_ind = "ind_int_emb_all_d")
  callModule(mod_carto_server, "carto_ui_3", r, type_ind = "ind_chomage_d")
  callModule(mod_carto_server, "carto_ui_4", r, type_ind = "ind_dur_empl_all_d")
}