Added button to download report (in ui only)

inst/ShinyApp/ui.R

@@ -783,17 +783,8 @@ rm(list = ls(all.names = TRUE))
 
         ## Report
         {tabPanel(title = "Rapport",
-                 br(),
-                 radioButtons(inputId = "lifestyle",
-                              h4("Mode de vie de l'espce"),
-                              choices = c("Sdentaire", "Non-sdentaire nicheur", "Non-sdentaire hivernant", "Migrateur de passage")),
-                 numericInput(inputId = "wind_farm_nb",
-                              h4("Nombre de parcs"),
-                              value = 1, min = 0, max = Inf, step = 1),
-                 numericInput(inputId = "wind_turbine_nb",
-                              h4("Nombre d'oliennes"),
-                              value = 1, min = 0, max = Inf, step = 1)
-
+                  br(" "),
+                  downloadButton("report", "Generate report")
         )} # End tabPanel
 
       ) # End tabSetPanel