Add ability to set datanames

R/tm_front_page.R

@@ -14,6 +14,7 @@
 #' @param footnotes (`character` vector) of text to be shown at the bottom of the module, for each
 #' element, if named the name is shown first in bold, followed by the value.
 #' @param show_metadata (`logical`) indicating whether the metadata of the datasets be available on the module.
+#' @inheritParams tm_variable_browser
 #'
 #' @inherit shared_params return
 #'
@@ -69,7 +70,8 @@ tm_front_page <- function(label = "Front page",
                           tables = list(),
                           additional_tags = tagList(),
                           footnotes = character(0),
-                          show_metadata = FALSE) {
+                          show_metadata = FALSE,
+                          datasets_selected = character(0L)) {
   message("Initializing tm_front_page")
 
   # Start of assertions
@@ -79,18 +81,27 @@ tm_front_page <- function(label = "Front page",
   checkmate::assert_multi_class(additional_tags, classes = c("shiny.tag.list", "html"))
   checkmate::assert_character(footnotes, min.len = 0, any.missing = FALSE)
   checkmate::assert_flag(show_metadata)
+  checkmate::assert_character(datasets_selected, min.len = 0, min.chars = 1)
+
   # End of assertions
 
   # Make UI args
   args <- as.list(environment())
+  datanames <- if (show_metadata && length(datasets_selected) > 0L) {
+    datasets_selected
+  } else if (show_metadata) {
+    "all"
+  } else {
+    NULL
+  }
 
   ans <- module(
     label = label,
     server = srv_front_page,
     ui = ui_front_page,
     ui_args = args,
     server_args = list(tables = tables, show_metadata = show_metadata),
-    datanames = if (show_metadata) "all" else NULL
+    datanames = datanames
   )
   attr(ans, "teal_bookmarkable") <- TRUE
   ans

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, min.len = 0, min.chars = 1)
   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

R/tm_variable_browser.R

@@ -114,7 +114,7 @@ tm_variable_browser <- function(label = "Variable Browser",
     label,
     server = srv_variable_browser,
     ui = ui_variable_browser,
-    datanames = "all",
+    datanames = if (length(datasets_selected) == 0) "all" else datasets_selected,
     server_args = list(
       datasets_selected = datasets_selected,
       parent_dataname = parent_dataname,

teal.modules.general.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: da9d7aac-6635-4d40-a6f3-881a397ffae1
 
 RestoreWorkspace: No
 SaveWorkspace: No