working on #53

traitecoevo · Sep 14, 2023 · 1491220 · 1491220
1 parent 6d989f3
commit 1491220
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/infinity-app/server.R b/infinity-app/server.R
@@ -288,9 +288,11 @@ server <- function(input, output, session) {
   # Handle CSV download
   output$downloadData <- downloadHandler(
     filename = function() {
+      name_bits <- gsub(".parquet", "", input$ala_path)
+      name_bits <- gsub("Australia-", "", name_bits)
       paste(input$place,
-            "-",
-            gsub(".parquet", "", input$ala_path),
+            "-",input$buffer_size,"m-buffer-",
+            name_bits,
             ".csv",
             sep = "")
     },