Add datasets_selected argument

Author: llrs-roche

R/tm_missing_data.R

@@ -7,6 +7,7 @@
 #'
 #' @inheritParams teal::module
 #' @inheritParams shared_params
+#' @inheritParams tm_data_table
 #' @param parent_dataname (`character(1)`) Specifies the parent dataset name. Default is `ADSL` for `CDISC` data.
 #' If provided and exists, enables additional analysis "by subject". For non-`CDISC` data, this parameter can be
 #' ignored.
@@ -110,6 +111,7 @@
 tm_missing_data <- function(label = "Missing data",
                             plot_height = c(600, 400, 5000),
                             plot_width = NULL,
+                            datasets_selected = character(0L),
                             parent_dataname = "ADSL",
                             ggtheme = c("classic", "gray", "bw", "linedraw", "light", "dark", "minimal", "void"),
                             ggplot2_args = list(
@@ -143,6 +145,7 @@ tm_missing_data <- function(label = "Missing data",
     lower = plot_width[2], upper = plot_width[3], null.ok = TRUE, .var.name = "plot_width"
   )
 
+  checkmate::assert_character(datasets_selected)
   checkmate::assert_character(parent_dataname, min.len = 0, max.len = 1)
   ggtheme <- match.arg(ggtheme)
 
@@ -158,9 +161,11 @@ tm_missing_data <- function(label = "Missing data",
   assert_decorators(decorators, null.ok = TRUE, names = available_decorators)
   # End of assertions
 
+  datasets_selected <- unique(datasets_selected)
   ans <- module(
     label,
     server = srv_page_missing_data,
+    datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,
     server_args = list(
       parent_dataname = parent_dataname,
       plot_height = plot_height,
@@ -170,7 +175,6 @@ tm_missing_data <- function(label = "Missing data",
       decorators = decorators
     ),
     ui = ui_page_missing_data,
-    datanames = "all",
     ui_args = list(pre_output = pre_output, post_output = post_output)
   )
   attr(ans, "teal_bookmarkable") <- TRUE