Fix column selection for data.table reads

luomus · Feb 8, 2024 · 39848ce · 39848ce
1 parent 6c01109
commit 39848ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
@@ -1029,7 +1029,7 @@ dt_read <- function(fb_occurrence_obj) {
 
  args[["header"]] <- FALSE
 
- df <- structure(vector("list", length(args_select)), class = "data.frame")
+ df <- structure(vector("list", length(args[["select"]])), class = "data.frame")
 
  if (file.exists(args[["input"]])) {