R/app_server.R

In lvaudor/mapdO: mapdO: exploration de données fluviales

#' @import shiny
#' @export
app_server <- function(input, output,session) {
  # List the first level callModules here
  onStop(function() {
    # 1. File name
    p <- paste0(getwd(), "/app.R")
    # 2. Update file 'date creation'
    Sys.setFileTime(p, Sys.time())
  }) # onStop
  callModule(mod_long_profiles_server, "long_profiles_ui_1")
  callModule(mod_regional_models_server, "regional_models_ui_1")
  callModule(mod_test_server, "test_ui_1")
}