R/app_server.R

In MehdiChelh/triangle.tlbx: An Amazing Shiny App

#' @title Appilcation server
#' 
#' @import shiny
app_server <- function(input, output, session) {
  
  # Routeur
  router(input, output, session)
  
  # Modules Backend
  callModule(mod_chainladder_compute_server, NULL)
  callModule(mod_bootstrap_compute_server, NULL)
  
}


#' @title Application router
#' 
#' @include app_ui.R
#' @include mod_app_home.R
#' @include mod_app_reserving.R 
#' @import shiny.router
#' @export
router <- make_router(
  route("home", mod_app_home_ui("home"), mod_app_home_server),
  route("app", mod_app_reserving_ui("app"), mod_app_reserving_server)
)