Duplicated decorators during an edge case of named and unnamed decorators

R/utils.R

@@ -417,7 +417,9 @@
     if (checkmate::test_names(names(decorators))) {
       lapply(decorators, list)
     } else {
-      list(default = decorators)
+      named <- which(names(decorators) != "")
+      unnamed <- setdiff(1:length(decorators), named)
+      c(list(default = decorators[unnamed]), lapply(decorators[named], list))
     }
   } else {
     decorators