#51

server.R

@@ -416,14 +416,14 @@ server <- function(input, output, session) {
     }
   })
 #
-#   # Téléchargement des données CSV - TODO a revoir : 1. ajouter le téléchargement des métadonnées de schemas, bases, 2.recupérer le premier r$selected_data si non nul, 3. utiliser req() pour supprimer les if/else
-#   output$downloadData <- downloadHandler(
-#     filename = function() {
-#       r$nom_csv
-#     },
-#     content = function(file) {
-#       write.csv2(r$data_csv, file, row.names = FALSE)
-#     },
-#     contentType = "text/csv"
-#   )
-}
+  # # Téléchargement des données attributaires au format CSV, géré par DT, a garder pour le projet QGIS
+  # output$downloadData <- downloadHandler(
+  #  filename = function() {
+  #    r$nom_csv
+  #  },
+  #  content = function(file) {
+  #    write.csv2(r$data_csv, file, row.names = FALSE)
+  #  },
+  #  contentType = "text/csv"
+  # )
+  }