Update normalize_decorators

Signed-off-by: Marcin <[email protected]>

Author: m7pr

R/utils.R

@@ -417,7 +417,9 @@ normalize_decorators <- function(decorators) {
     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