R/app_server.R

In rahulchauhan049/dashboard.utilities: Visualization utilities for bdvis Dashboard

#' @import shiny
app_server <- function(input, output,session) {
  # List the first level callModules here
  options(shiny.maxRequestSize = 5000 * 1024 ^ 2)
  inputDataset <-
    callModule(
      bdutilities.app::mod_add_data_server,
      id = "bdFileInput"
    )
  
  callModule(mod_leaflet_server, "mod_leaflet", inputDataset)
  callModule(mod_yearly_chart_server, "mod_yearly")
  callModule(mod_chooser_server, "mod_chooser")
  callModule(mod_webVr_server, "webvr")
  callModule(mod_phylo_server, "phylowidget")
  callModule(mod_datamaps_server, "datamaps")
  callModule(mod_mapview_server, "mapview")
  callModule(mod_leaftime_server, "leaftime")
  callModule(mod_leaftime.minicharts_server, "leafchart")
  callModule(mod_heatmap_server, "heatmap")
  callModule(mod_scroll_server, "scroll")
}