Fix issue #115

server.R

@@ -783,4 +783,32 @@ shinyServer(function(input, output) {
                 addLegend("bottomright", pal = binpal, values = production_geom_selected()$production, title = paste("Production ",input$select_year," (en tonnes)"), opacity = 0.8)
         }
     })
+    
+    #Téléchargement des données
+    # Reactive value for selected dataset ----
+    datasetInput <- reactive({
+        switch(input$dataset,
+               "carriere" = carriere,
+               "r_carriere_type_roche_p_r52" = r_carriere_type_roche_p_r52,
+               "r_carriere_type_ressource_p_r52" = r_carriere_type_ressource_p_r52,
+               "r_carriere_nom_substance_p_r52" = r_carriere_nom_substance_p_r52,
+               "production_carriere" = production_carriere)
+    })
+    
+    # Table of selected dataset ----
+    output$table <- renderTable({
+        datasetInput()
+    })
+    
+    # Downloadable csv of selected dataset ----
+    output$downloadData <- downloadHandler(
+        filename = function() {
+            paste(input$dataset, ".csv", sep = "")
+        },
+        content = function(file) {
+            write.csv(datasetInput(), file, row.names = FALSE)
+        }
+    )
+    
+    
 })

ui.R

@@ -24,6 +24,7 @@ sidebar <- dashboardSidebar(
                  menuSubItem(HTML('Évolution de la production'), tabName = 'production')
         ),
         menuItem('Cartes', tabName = 'maps', icon = icon('map-marker')),
+        menuItem('Téléchargement des données', tabName = 'download', icon = icon('download')),
         menuItem("Aide", tabName = "help", icon = icon('question-circle'),
                  menuSubItem('Présentation', tabName = 'presentation'),
                  menuSubItem("Guide d'utilisation", tabName = 'help'),
@@ -136,6 +137,23 @@ body <- dashboardBody(
                         tabPanel("Production", fluidRow(column(width = 12,br(),leafletOutput('production_map', height = 700, width = 1000))))
                     )
             ),
+            #Téléchargement des données
+            tabItem(tabName = "download", h1("Téléchargement des données"),
+                    fluidRow(column(width = 12,br(),
+                                    p("Les lots de données téléchargés concernent l'ensemble de la région et tous les millésimes de production."),
+                                    p("Les sélecteurs de la colonne de gauche n'affectent pas le périmètre de téléchargement."),
+                                    # Input: Choose dataset ----
+                                    selectInput("dataset", "Sélectionner un lot de données:",
+                                                choices = c("Carrières" = "carriere", "Carrières par type de roche"= "r_carriere_type_roche_p_r52", 
+                                                            "Carrières par type de ressource" = "r_carriere_type_ressource_p_r52",
+                                                            "Carrières par type de substance" = "r_carriere_nom_substance_p_r52", 
+                                                            "Production" = "production_carriere")
+                                                ),
+                                    # Button
+                                    downloadButton("downloadData", "Télécharger")
+                    ))
+            ),
+            
             tabItem(tabName = "presentation", fluidRow(box(width=12,includeMarkdown("readme.md")))),
             tabItem(tabName = "help", fluidRow(box(width=12,includeMarkdown("help.md")))),
             tabItem(tabName = "glossary", fluidRow(box(width=12,includeMarkdown("glossary.md")))),