Set parent_dataname that matches data available

llrs-roche · llrs-roche · commit 4b2eba247cd5 · 2025-01-16T12:41:47.000+01:00
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -73,7 +73,7 @@
 #' app <- init(
 #'   data = data,
 #'   modules = modules(
-#'     tm_missing_data()
+#'     tm_missing_data(parent_dataname  = "mtcars")
 #'   )
 #' )
 #' if (interactive()) {
diff --git a/man/tm_missing_data.Rd b/man/tm_missing_data.Rd
diff --git a/tests/testthat/test-shinytest2-tm_misssing_data.R b/tests/testthat/test-shinytest2-tm_misssing_data.R
@@ -19,7 +19,7 @@ app_driver_tm_missing_data <- function() {
       label = "Missing data",
       plot_height = c(600, 400, 5000),
       plot_width = NULL,
-      parent_dataname = "",
+      datanames = "mtcars",
       ggtheme = "gray",
       ggplot2_args = list(
         "Combinations Hist" = teal.widgets::ggplot2_args(
