Ensure 0-row dfs have unique column names

luomus · Dec 20, 2023 · eecd7f5 · eecd7f5
1 parent 2b691e2
commit eecd7f5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/finbif_occurrence_load.R b/R/finbif_occurrence_load.R
@@ -909,7 +909,11 @@ dt_read <- function(fb_occurrence_obj) {
 
  }
 
- cols <- rownames(sysdata("cite_file_vars"))
+ cols <- sysdata("cite_file_vars")
+
+ cols <- rownames(cols)
+
+ cols <- unique(cols)
 
  if (file.exists(args[["input"]])) {
 
@@ -1550,6 +1554,8 @@ open_tsv_connection <- function(connection_obj) {
 
  vars <- rownames(vars)
 
+ vars <- unique(vars)
+
  vars <- paste0(vars, collapse = "\t")
 
  textConnection(vars)