class2tree checks duplicated taxa in higher levels, resolve #934

ropensci · Aug 26, 2024 · 1e42d5c · 1e42d5c
1 parent 2986c6d
commit 1e42d5c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/class2tree.R b/R/class2tree.R
@@ -414,9 +414,9 @@ taxonomy_table_creator <- function (nameList, rankList) {
   )
   if (length(unlist(duplicatedTaxa)) > 0) {
       msg <- paste("WARNING:", length(unlist(duplicatedTaxa)))
-      msg <- "duplicated taxa have been ignored!"
+      msg <- paste(msg, "duplicated taxa have been ignored!")
       if (length(unlist(duplicatedTaxa)) == 1)
-          msg <- "duplicated taxon has been ignored!"
+          msg <- paste(msg, "duplicated taxon has been ignored!")
       if (length(unlist(duplicatedTaxa)) < 5) {
           msg <- paste(msg, "Including: ")
           msg <- c(msg, paste(unlist(duplicatedTaxa), collapse = "; "))