From cbd2c7719e22cbbeae02929169de85a7bd0fe981 Mon Sep 17 00:00:00 2001
From: Fonti Kar <f.kar@unsw.edu.au>
Date: Fri, 13 Sep 2024 15:28:08 +1000
Subject: [PATCH] Removed name bits that were not working #85

---
 R/server.R | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/R/server.R b/R/server.R
index 99429be..e97f8ef 100644
--- a/R/server.R
+++ b/R/server.R
@@ -392,10 +392,8 @@ infinity_server <- function(...) {
     output$downloadData <- downloadHandler(
       filename = function() {
         name_bits <- gsub(".parquet", "", input$ala_path)
-        name_bits <- gsub("Australia-", "", name_bits)
-        paste(input$place,
-              "-",
-              input$buffer_size,
+        name_bits <- gsub("infinitylists-", "", name_bits)
+        paste(input$buffer_size,
               "m-buffer-",
               name_bits,
               ".csv",