app_server.R

#' Server
#'
#' This function is internally used to manage the shinyServer
#'
#' @import shiny
#' @import shinydashboard
#' @noRd
#' @keywords internal
app_server <- function(input, output, session) {

  ## add a reactive value object to pass by elements between objects
  AppReactiveValue <-  reactiveValues(
    search = "",
    token = ""
  )
  # pins::board_register() # connect to pin board if needed
  callModule(mod_home_server, "home_ui_1")
  callModule(mod_ridl_connect_server, "ridl_connect_ui_1", AppReactiveValue)
  callModule(mod_set_up_check_server, "set_up_check_ui_1", AppReactiveValue)
  callModule(mod_set_up_clean_server, "set_up_clean_ui_1", AppReactiveValue)
  callModule(mod_set_up_anom_server, "set_up_anom_ui_1", AppReactiveValue)
  callModule(mod_review_server, "review_ui_1", AppReactiveValue)
  callModule(mod_automatise_report_server, "automatise_report_ui_1", AppReactiveValue)
}