Test bookmarking with simulated data

Author: mingstat

tests/testthat/apps/bookmarking/app.R

@@ -1,25 +1,19 @@
-adsl <- pharmaverseadam::adsl
-adtr <- pharmaverseadam::adtr_onco |>
-  dplyr::mutate(
-    ARM = factor(ARM, levels = c("Placebo", "Xanomeline Low Dose", "Xanomeline High Dose")),
-    SEX = factor(SEX, levels = c("F", "M"), labels = c("Female", "Male")),
-    AVISIT = forcats::fct_reorder(AVISIT, AVISITN)
-  )
-
-attr(adtr[["ARM"]], "label") <- "Planned Arm"
-attr(adtr[["SEX"]], "label") <- "Sex"
-attr(adtr[["AVISIT"]], "label") <- "Analysis Visit"
+test_data <- dv.spiderplot:::generate_test_data(seed = 1)
+adsl <- test_data$adsl
+adtr <- test_data$adtr
 
 spiderplot_mod <- dv.spiderplot::mod_spiderplot(
   module_id = "mod_spider",
   subject_level_dataset_name = "adsl",
   results_dataset_name = "adtr",
   subjid_var = "USUBJID",
-  x_vars = c("ADY", "AVISIT"),
-  y_vars = c("PCHG", "CHG"),
-  color_vars = c("ARM", "AGEGR1"),
-  facet_rows = c("SEX", "ETHNIC"),
-  facet_cols = c("ARM", "AGEGR1")
+  x_vars = c("AVISIT", "ADY"),
+  y_vars = c("PCHG"),
+  color_vars = c("ARM", "SEX"),
+  facet_rows = c("AGEGRP"),
+  facet_cols = c("COUNTRY"),
+  title = "Interactive Spider Plot",
+  subtitle = "Test Data Demo"
 )
 
 dv.manager::run_app(
@@ -29,5 +23,5 @@ dv.manager::run_app(
   filter_data = "adsl",
   filter_key = "USUBJID",
   filter_type = "datasets",
-  enableBookmarking = "url"  # enable bookmarking for testing
+  enableBookmarking = "url"  # Enable bookmarking for testing
 )

tests/testthat/test-bookmarking.R

@@ -1,51 +1,45 @@
 test_that("The app's state is restored when bookmarking" %>%
   vdoc[["add_spec"]](specs$framework_specs$bookmarking), {
-    app_bmk <- shinytest2::AppDriver$new(
-      app_dir = testthat::test_path("apps/bookmarking"), name = "test_bookmarking"
-    )
-    app_bmk$wait_for_idle()
-  
-    app_bmk$set_inputs(`mod_spider-x_var` = "AVISIT")
-    app_bmk$set_inputs(`mod_spider-y_var` = "CHG")
-    app_bmk$set_inputs(`mod_spider-color_var` = "AGEGR1")
-    app_bmk$set_inputs(`mod_spider-facet_rows` = "ETHNIC")
-    app_bmk$set_inputs(`mod_spider-facet_cols` = "AGEGR1")
-    app_bmk$set_inputs(`mod_spider-hlines` = "-20, -30")
-    app_bmk$set_inputs(`mod_spider-vlines` = "21, 42")
-  
-    app_bmk$run_js("document.getElementById('._bookmark_').click()")
-    app_bmk$wait_for_idle()
-  
-    bmk_url <- app_bmk$get_js("document.querySelector('.modal-dialog textarea').value")
-      
-    app_rst <- shinytest2::AppDriver$new(app_dir = bmk_url, name = "test_restoring")
-    app_rst$wait_for_idle()
-  
-    actual <- app_rst$get_values(
-      input = c(
-        "mod_spider-x_var", 
-        "mod_spider-y_var", 
-        "mod_spider-color_var",
-        "mod_spider-facet_rows", 
-        "mod_spider-facet_cols", 
-        "mod_spider-hlines", 
-        "mod_spider-vlines"
-      )
+  app_bmk <- shinytest2::AppDriver$new(
+    app_dir = testthat::test_path("apps/bookmarking"), 
+    name = "test_bookmarking"
+  )
+  app_bmk$wait_for_idle()
+
+  app_bmk$set_inputs(`mod_spider-x_var` = "ADY")
+  app_bmk$set_inputs(`mod_spider-color_var` = "SEX")
+  app_bmk$set_inputs(`mod_spider-hlines` = "-20, 20")
+  app_bmk$set_inputs(`mod_spider-vlines` = "10, 20")
+
+  app_bmk$run_js("document.getElementById('._bookmark_').click()")
+  app_bmk$wait_for_idle()
+
+  bmk_url <- app_bmk$get_js("document.querySelector('.modal-dialog textarea').value")
+    
+  app_rst <- shinytest2::AppDriver$new(
+    app_dir = bmk_url, 
+    name = "test_restoring"
+  )
+  app_rst$wait_for_idle()
+
+  actual <- app_rst$get_values(
+    input = c(
+      "mod_spider-x_var", 
+      "mod_spider-color_var",
+      "mod_spider-hlines", 
+      "mod_spider-vlines"
     )
-    expected <- list(
-      input = list(
-        `mod_spider-color_var` = "AGEGR1",
-        `mod_spider-facet_cols` = "AGEGR1",
-        `mod_spider-facet_rows` = "ETHNIC",
-        `mod_spider-hlines` = "-20, -30",
-        `mod_spider-vlines` = "21, 42",
-        `mod_spider-x_var` = "AVISIT",
-        `mod_spider-y_var` = "CHG"
-      )
+  )
+  expected <- list(
+    input = list(
+      `mod_spider-color_var` = "SEX",
+      `mod_spider-hlines` = "-20, 20",
+      `mod_spider-vlines` = "10, 20",
+      `mod_spider-x_var` = "ADY"
     )
-    testthat::expect_identical(actual, expected)
-    
-    app_bmk$stop()
-    app_rst$stop()
-  }
-)
+  )
+  testthat::expect_identical(actual, expected)
+
+  app_bmk$stop()
+  app_rst$stop()
+  })