Fix removing duplicate field names

luomus · Dec 20, 2023 · 0a6ef1d · 0a6ef1d
1 parent eecd7f5
commit 0a6ef1d
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
@@ -271,6 +271,14 @@ finbif_occurrence_load <- function(
 
  }
 
+ } else {
+
+ select_user_keep <- !duplicated(select[["user"]])
+
+ select[["user"]] <- select[["user"]][select_user_keep]
+
+ fb_occurrence_df <- fb_occurrence_df[, select_user_keep, drop = FALSE]
+
  }
 
  attr(fb_occurrence_df, "file_cols") <- NULL
@@ -379,7 +387,6 @@ finbif_occurrence_load <- function(
 
  }
 
-
  select_user <- name_chr_vec(select[["user"]])
 
  fb_occurrence_df <- fb_occurrence_df[, select_user, drop = FALSE]
@@ -913,8 +920,6 @@ dt_read <- function(fb_occurrence_obj) {
 
  cols <- rownames(cols)
 
- cols <- unique(cols)
-
  if (file.exists(args[["input"]])) {
 
  cols <- do.call(data.table::fread, args)
@@ -1554,8 +1559,6 @@ open_tsv_connection <- function(connection_obj) {
 
  vars <- rownames(vars)
 
- vars <- unique(vars)
-
  vars <- paste0(vars, collapse = "\t")
 
  textConnection(vars)