stack deorators messages

insightsengineering · Jan 22, 2025 · 5576f60 · 5576f60
1 parent e6b3ff2
commit 5576f60
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -351,7 +351,12 @@ check_decorators <- function(x, names = NULL) { # nolint: object_name.
       out_message <- checkmate::check_names(names(x), subset.of = c("default", names))
       # see https://github.com/insightsengineering/teal.logger/issues/101
       if (length(names(x)) != length(unique(names(x)))) {
-        out_message <- "Non-unique names in decorators."
+        unique_message <- "Non-unique names in decorators"
+        if (isTRUE(out_message)) {
+          out_message <- unique_message
+        } else {
+          out_message <- paste0(out_message, '. Also, ', tolower(unique_message))
+        }
       }
       if (isTRUE(out_message)) {
         out_message