Merge branch 'main' into 479_mirai_lockfile@main

Author: m7pr

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal
 Title: Exploratory Web Apps for Analyzing Clinical Trials Data
-Version: 0.15.2.9062
-Date: 2024-09-16
+Version: 0.15.2.9063
+Date: 2024-09-17
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9533-457X")),

NEWS.md

@@ -1,4 +1,4 @@
-# teal 0.15.2.9062
+# teal 0.15.2.9063
 
 ### New features
 

R/modules.R

@@ -264,7 +264,7 @@ module <- function(label = "module",
   }
   checkmate::assert_list(transformers, types = "teal_transform_module")
   transformer_datanames <- unlist(lapply(transformers, attr, "datanames"))
-  combined_datanames <- if (identical(datanames, "all") || identical(transformer_datanames, "all")) {
+  combined_datanames <- if (identical(datanames, "all") || any(sapply(transformer_datanames, identical, "all"))) {
     "all"
   } else {
     union(datanames, transformer_datanames)

tests/testthat/test-modules.R

@@ -534,7 +534,7 @@ testthat::test_that("module datanames is appended by its transformers datanames"
   testthat::expect_identical(out$datanames, c("c", "a", "b"))
 })
 
-testthat::test_that("module datanames is set to 'all' if transformer $datanames is 'all'", {
+testthat::test_that("module datanames is set to 'all' if any transformer $datanames is 'all'", {
   transformer_w_datanames <- teal_transform_module(
     ui = function(id) NULL,
     server = function(id, data) {