remove unnecessary

insightsengineering · Oct 15, 2024 · bc70e42 · bc70e42
1 parent babc2d6
commit bc70e42
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/R/module_transform_data.R b/R/module_transform_data.R
@@ -53,14 +53,11 @@ ui_transform_data <- function(id, transformers = list(), class = "well") {
 }
 
 #' @rdname module_transform_data
-srv_transform_data <- function(id, data, transformers, modules, is_transformer_failed = reactiveValues()) {
+srv_transform_data <- function(id, data, transformers = list(), modules, is_transformer_failed = reactiveValues()) {
   checkmate::assert_string(id)
   assert_reactive(data)
-  checkmate::assert_list(transformers, "teal_transform_module", null.ok = TRUE)
+  checkmate::assert_list(transformers, "teal_transform_module")
   checkmate::assert_class(modules, "teal_module")
-  if (length(transformers) == 0L) {
-    return(data)
-  }
   labels <- lapply(transformers, function(x) attr(x, "label"))
   ids <- get_unique_labels(labels)
   names(transformers) <- ids