R/server.R

Defines functions app_server

#' @import shiny
app_server <- function(input, output,session) {
  session$onSessionEnded(stopApp)
  
  # Init var
  savevar <- reactiveValues()
  
  # Dev
  observeEvent(input$dev, {
    browser()
  })
  
  # Modules ----
  callModule(server_import,"import_mod", savevar)
  callModule(infer, "infer_mod", savevar)
  callModule(semantics, "semantics_mod", savevar)
}
pole-national-donnees-biodiversite/OB1.metadata documentation built on Nov. 5, 2019, 12:59 a.m.