From 1b09a03959afe287c65a0057549e9b07c0a753cd Mon Sep 17 00:00:00 2001
From: Fonti Kar <f.kar@unsw.edu.au>
Date: Wed, 28 Feb 2024 14:13:07 +1100
Subject: [PATCH] Removed URL creaton in downloadhandler

---
 R/server.R | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/R/server.R b/R/server.R
index cb83760..ddbc6a0 100644
--- a/R/server.R
+++ b/R/server.R
@@ -353,16 +353,7 @@ infinity_server <- function(...) {
       },
       content = function(file) {
         data <- intersect_data()
-        data$`Voucher Location` = ifelse(
-          grepl("https", data$`Voucher Location`),
-          data$`Voucher Location`
-          ,
-          paste0(
-            "https://biocache.ala.org.au/occurrences/",
-            data$`Record Id`
-          )
-        )
-    
+        # Fixing the date
         collectionDate_partial = lubridate::ymd_hms(data$`Collection Date`, tz = "UTC", quiet = TRUE)
         collectionDate_all = dplyr::if_else(
           is.na(collectionDate_partial),