extend assertion of class of elements passed to modules()

insightsengineering · Oct 23, 2023 · 464c42c · 464c42c
1 parent bdc373b
commit 464c42c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/modules.R b/R/modules.R
@@ -75,7 +75,7 @@ modules <- function(..., label = "root") {
     )
   }
 
-  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_modules"))
+  checkmate::assert_list(submodules, min.len = 1, any.missing = FALSE, types = c("teal_module", "teal_module_reporter", "teal_module_landing", "teal_modules"))
   # name them so we can more easily access the children
   # beware however that the label of the submodules should not be changed as it must be kept synced
   labels <- vapply(submodules, function(submodule) submodule$label, character(1))