when non-unique names are passed to decorators, throw a warning from assert_decorators, and let it pass through normalize_decorators

Author: m7pr

R/utils.R

@@ -414,7 +414,9 @@ select_decorators <- function(decorators, scope) {
 #' @keywords internal
 normalize_decorators <- function(decorators) {
   if (checkmate::test_list(decorators, "teal_transform_module")) {
-    decorators_names <- setdiff(names(decorators), "")
+    decorators_names <- names(decorators)[!names(decorators) %in% ""]
+    # Above is equivalent to decorators_names <- setdiff(names(decorators), "")
+    # but can return non-unique values. Non-unique values are checked in assert_decorators.
     if (length(decorators_names) == 0) {
       list(default = decorators)
     } else if (length(decorators_names) == length(decorators)) {