fix #121 - disable vespa velutina mgt

inbo · Oct 7, 2024 · 2092d2b · 2092d2b
1 parent 08057b9
commit 2092d2b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/alienSpecies/inst/app/serverFiles/serverSpecies.R b/alienSpecies/inst/app/serverFiles/serverSpecies.R
@@ -269,7 +269,8 @@ heatSpecies <- c("Vespa velutina")
 results$species_managementFile <- reactive({
 
     req(taxonName())
-    expectFile <- if (taxonName() %in% heatSpecies)
+    expectFile <- if (taxonName() == "Vespa velutina")  # exclude Vespa velutina mgt #121
+        "" else if (taxonName() %in% heatSpecies)
         paste0(gsub(" ", "_", taxonName()), "_shape.RData") else 
         gsub(" ", "_", paste0(taxonName(), ".csv"))
     availableFiles <- aws.s3::get_bucket_df(