parse_family(): Fix for R<4.0

ncss-tech · Nov 14, 2023 · ccf2943 · ccf2943
1 parent d04c9b0
commit ccf2943
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/family-classes.R b/R/family-classes.R
@@ -131,7 +131,8 @@ parse_family <- function(family, column_metadata = TRUE, flat = TRUE) {
   taxsub <- as.data.frame(data.table::rbindlist(lapply(decompose_taxon_code(res$code), function(x) {
     y <- taxon_code_to_taxon(as.character(rev(x)))
     z <- data.frame(taxsubgrp = NA_character_, taxgrtgroup = NA_character_,
-                    taxsuborder = NA_character_, taxorder = NA_character_)
+                    taxsuborder = NA_character_, taxorder = NA_character_,
+                    stringsAsFactors = FALSE)
     z[1, ] <- tail(c(rep(NA_character_, 4), y), 4)
     z
   })), stringsAsFactors = FALSE)