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 = "; "))