Merge branch '821_select_datanames@main' of https://github.com/insigh…

…tsengineering/teal.modules.general into 821_select_datanames@main
insightsengineering · Jan 10, 2025 · 341e039 · 341e039
2 parents 0f8eae8 + 3b70824
commit 341e039
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/R/tm_data_table.R b/R/tm_data_table.R
@@ -86,8 +86,8 @@
 #'
 tm_data_table <- function(label = "Data Table",
                           variables_selected = list(),
-                          datasets_selected = NULL,
-                          datanames = NULL,
+                          datasets_selected = "all",
+                          datanames = datasets_selected,
                           dt_args = list(),
                           dt_options = list(
                             searching = FALSE,

diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -109,7 +109,7 @@
 tm_missing_data <- function(label = "Missing data",
                             plot_height = c(600, 400, 5000),
                             plot_width = NULL,
-                            datanames = NULL,
+                            datanames = "all",
                             parent_dataname = "ADSL",
                             ggtheme = c("classic", "gray", "bw", "linedraw", "light", "dark", "minimal", "void"),
                             ggplot2_args = list(
@@ -163,7 +163,7 @@ tm_missing_data <- function(label = "Missing data",
   ans <- module(
     label,
     server = srv_page_missing_data,
-    datanames = if (length(datanames) == 0) "all" else datanames,
+    datanames = datanames,
     server_args = list(
       parent_dataname = parent_dataname,
       plot_height = plot_height,

diff --git a/man/tm_data_table.Rd b/man/tm_data_table.Rd
diff --git a/man/tm_missing_data.Rd b/man/tm_missing_data.Rd