Merge pull request #53 from jlhelling/fast-design

fixed errors in download section
EVS-GIS · Nov 21, 2024 · a84ec96 · a84ec96
2 parents aeef186 + f96b50a
commit a84ec96
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 8 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -66,7 +66,7 @@ app_server <- function(input, output, session) {
     swath_data_dgo = NULL, # data of selected swath dgo
 
     # download
-    dataset_input = NULL, # dataset input to be download
+    dataset_input = NULL, # dataset input to be downloaded
 
     # first time clicked
     axis_clicked = FALSE, # if axis was clicked

diff --git a/R/mod_download.R b/R/mod_download.R
@@ -32,10 +32,12 @@ mod_download_ui <- function(id) {
           ),
 
           # Input: choose scale
-          uiOutput(ns("select_scaleUI")),
+          uiOutput(
+            ns("select_scaleUI")),
 
           # apply button
-          actionButton(ns("prepare_download_button"), "Préparer et visualiser les données", icon = icon("magnifying-glass-chart"))
+          uiOutput(
+            ns("prepare_download_buttonUI"))
         )
       ),
       column(
@@ -85,7 +87,8 @@ mod_download_server <- function(id, con, r_val, globals){
     # reactive values ----
     r_val_local <- reactiveValues(
       scale = NULL, # scale selectInput
-      dataset_input_name = NULL # dataset input name
+      dataset_input_name = NULL, # dataset input name
+      prepare_download_button = NULL # prepare download button
     )
 
 
@@ -95,6 +98,20 @@ mod_download_server <- function(id, con, r_val, globals){
       r_val_local$scale
     })
 
+    output$prepare_download_buttonUI <- renderUI({
+      r_val_local$prepare_download_button
+    })
+
+    # only create prepare download button if scale is selected
+    observeEvent(r_val_local$scale,{
+
+      if (is.null(r_val_local$scale) | as.character(r_val_local$scale) == "Sélectionnez une entité hydrographique (bassin / région / axe) pour continuer.") {
+        r_val_local$prepare_download_button <- NULL
+      } else {
+        r_val_local$prepare_download_button <- actionButton(ns("prepare_download_button"), "Préparer et visualiser les données", icon = icon("magnifying-glass-chart"))
+      }
+    })
+
     # create select-input based on selected hydrographic entity
     observeEvent(c(r_val$tab_page, r_val$basin_id, r_val$region_id, r_val$axis_id, input$select_type), {
 
@@ -175,7 +192,7 @@ mod_download_server <- function(id, con, r_val, globals){
     observeEvent(input$prepare_download_button, {
 
       # check if tab open
-      if (r_val$tab_page == "Télechargement" && input$select_scale %in% c("Bassin", "Région", "Axe")) {
+      if (r_val$tab_page == "Télechargement" && input$select_scale %in% c("Bassin", "Région", "Axe") ) { #&& !is.null(r_val$dataset_input)
 
         ### network ####
         if (input$select_type == "Réseau hydrographique") {
@@ -278,11 +295,11 @@ mod_download_server <- function(id, con, r_val, globals){
     # Download ----
     observe({
 
-      if (!is.null(r_val_local$dataset_input)) {
+      if (!is.null(r_val$dataset_input)) {
 
         # prepare table
         output$table_data <- renderTable(
-          head(r_val_local$dataset_input, n = 10),
+          head(r_val$dataset_input, n = 10),
           striped = TRUE,
           hover = TRUE,
           bordered = TRUE,
@@ -301,7 +318,7 @@ mod_download_server <- function(id, con, r_val, globals){
             paste0(r_val_local$dataset_input_name, ".csv")
           },
           content = function(file) {
-            write.csv(r_val_local$dataset_input, file, row.names = FALSE)
+            write.csv(r_val$dataset_input, file, row.names = FALSE)
           }
         )
       }