Fix cache use parameter

luomus · Sep 24, 2024 · 9631a38 · 9631a38
1 parent 5ed2d46
commit 9631a38
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/finbif_occurrence.R b/R/finbif_occurrence.R
@@ -178,9 +178,9 @@ occurrence <- function(fb_records_obj) {
     fb_records_obj[["taxa"]], fb_records_obj[["filter"]]
   )
 
-  cache <- as.list(
-    c(fb_records_obj[["cache"]], getOption("finbif_use_cache_metadata"))
-  )
+  cache <- as.list(fb_records_obj[["cache"]])
+
+  cache <- c(cache, getOption("finbif_use_cache_metadata"))
 
   fb_records_obj[["cache"]] <- cache[1:2]