diff --git a/R/class2tree.R b/R/class2tree.R index 28bfcec1..94a20820 100644 --- 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 = "; "))