specieskey

vmikk · Apr 26, 2024 · 7887c82 · 7887c82
1 parent d807d10
commit 7887c82
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/10_Filter_occurrences.R b/bin/10_Filter_occurrences.R
@@ -212,7 +212,7 @@ if(!is.na(EXTINCT)){
 ## Load user-supplied specieskeys
 if(!is.na(SPECIESKEYS)){
   SPECIESKEYS <- fread(file = SPECIESKEYS, sep = "\t")
-  colnames(SPECIESKEYS) <- "specieskey"
+  colnames(SPECIESKEYS)[1] <- "specieskey"
   SPECIESKEYS <- unique(na.omit(SPECIESKEYS))
   cat("Specieskey list loaded. Number of records: ", nrow(SPECIESKEYS), "\n")
 }