R/app_server.R

In rahulchauhan049/dashboard.experiment: An agile framework for biodiversity dashboards

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  # List the first level callModules here
  
  #Increase Upload limit
  options(shiny.maxRequestSize = 5000 * 1024 ^ 2)
  options (future.globals.maxSize = 5000 * 1024 ^ 2)
  
  
  data_store <-
    shiny::reactiveValues(
      darwinized_data = data.frame(),
      input_data = data.frame()
    )
  
  data_store$input_data <-
    callModule(
      bdutilities.app::mod_add_data_server,
      id = "bdFileInput",
      "darwinControlInner"
    )
  
  data_store$darwinized_data <-
    callModule(bdutilities.app::mod_darwinize_server,
               "darwinize",
               dat = data_store$input_data)
  
  callModule(mod_data_summary_server, "data_summary_ui_1", data_store$darwinized_data)
  
  callModule(mod_missing_data_server, "missing_data_ui_1", data_store$darwinized_data)
  
  callModule(mod_spatial_tab_server, "spatial_tab_ui_1", data_store$darwinized_data)
  
  callModule(mod_taxonomic_tab_server, "taxonomic_tab_ui_1", data_store$darwinized_data)
  
  callModule(mod_temporal_tab_server, "temporal_tab_ui_1", data_store$darwinized_data)
  
  # Logic to prompt the user to both upload/download a dataset and Darwinize it before using the dashboard
  tabs <- c("dataSummary", "missing_overview", "spatial_tab", "taxonomic_tab", "temporal_tab")
  
  observeEvent(input$sideBar, {
    dat <- data_store$input_data
    dar <- data_store$darwinized_data
    
    
    if(input$sideBar %in% tabs) {
      if(length(dat()) == 0 & length(dar()) == 0) {
        updateTabItems(session, "sideBar", "dataInputTab")
        showNotification("Please add a dataset and Darwinize it")
      } else {
        if(length(dar()) == 0) {
          updateTabItems(session, "sideBar", "dataInputTab")
          showNotification("Please Darwinize your dataset")
        } 
        if(length(dat()) == 0) { 
          updateTabItems(session, "sideBar", "dataInputTab")
          showNotification("Please add a dataset")
        }
      }
    }
    
  })
  
}