R/app_server.R

In bd-R/bddwc.app: A User-Friendly Graphical Interface for Darwinizing Biodiversity Datasets

#' @import shiny bdutilities.app
app_server <- function(input, output, session) {
  options(shiny.maxRequestSize = 50 * 1024 ^ 2)
  session$onSessionEnded(function() {
    stopApp()
  })
  
  #------------- Data --------------
  data_store <-
    shiny::reactiveValues(
      data_user = data.frame(),
      dictionary = data.frame(),
      data_darwinized = data.frame()
    )
  #------------- Data --------------
  
  
  #------------- Modules --------------
  data_store$data_user <-
    callModule(bdutilities.app::mod_add_data_server, "bdFileInput", "dataToDictionaryDiv")
  
  data_store$dictionary <- callModule(mod_add_dictionary_server, "bdDictionaryInput", "dictionaryToDarwinDiv")
  
  callModule(mod_darwinizer_server,
             "bdDarwinizer",
             data_store$data_user, data_store$dictionary)
  
  callModule(bdutilities.app::mod_citation_server, "citation_ui_1", "bddwc.app")
  #------------- Modules --------------
  
  
  #------------- Events --------------
  observeEvent(input$dataToDictionary, {
    dat <- data_store$data_user
    
    if (length(dat()) == 0) {
      showNotification("Please add data",
                       duration = 6)
    } else {
      updateTabItems(session, "sideBar", "configure")
    }
  })
  
  observeEvent(input$dictionaryToDarwin, {
    dat <- data_store$dictionary
    
    if (length(dat()) == 0) {
      showNotification("Please add dictionary",
                       duration = 6)
    } else {
      updateTabItems(session, "sideBar", "darwinize")
    }
  })
  
  observeEvent(input$sideBar, {
    dat <- data_store$data_user
    dict <- data_store$dictionary
    
    if(input$sideBar == "configure"){
      if (length(dat()) == 0) {
        updateTabItems(session, "sideBar", "add")
        showNotification("Please add data",
                         duration = 6)
        
      } 
    } else if (input$sideBar == "darwinize"){
      if (length(dict()) == 0) {
        updateTabItems(session, "sideBar", "configure")
        showNotification("Please add dictionary",
                         duration = 6)
        
      } 
    }
  })
  
  
  #------------- Events --------------
}