skeleton for tm_outliers

tests/testthat/helper-TealAppDriver.R

@@ -27,3 +27,50 @@ simple_cdisc_data <- function(datasets = c("ADSL", "ADRS", "ADTTE")) {
   teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[datasets]
   data
 }
+
+app_driver_tm_outlier <- function() {
+  data <- teal.data::teal_data()
+  data <- within(data, {
+    CO2 <- CO2 # nolint: object_name
+    CO2[["primary_key"]] <- seq_len(nrow(CO2))
+  })
+  teal.data::datanames(data) <- "CO2"
+  teal.data::join_keys(data) <- teal.data::join_keys(join_key("CO2", "CO2", "primary_key"))
+
+  vars <- teal.transform::choices_selected(teal.transform::variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")))
+
+  TealAppDriver$new(
+    data = data,
+    modules = tm_outliers(
+      outlier_var = list(
+        teal.transform::data_extract_spec(
+          dataname = "CO2",
+          select = teal.transform::select_spec(
+            label = "Select variable:",
+            choices = teal.transform::variable_choices(data[["CO2"]], c("conc", "uptake")),
+            selected = "uptake",
+            multiple = FALSE,
+            fixed = FALSE
+          )
+        )
+      ),
+      categorical_var = list(
+        teal.transform::data_extract_spec(
+          dataname = "CO2",
+          filter = teal.transform::filter_spec(
+            vars = vars,
+            choices = teal.transform::value_choices(data[["CO2"]], vars$selected),
+            selected = teal.transform::value_choices(data[["CO2"]], vars$selected),
+            multiple = TRUE
+          )
+        )
+      ),
+      ggplot2_args = list(
+        teal.widgets::ggplot2_args(
+          labs = list(subtitle = "Plot generated by Outliers Module")
+        )
+      )
+    )
+
+  )
+}

tests/testthat/test-shinytest2-tm_outliers.R

@@ -0,0 +1,7 @@
+testthat::test_that("e2e - tm_outliers: skeleton", {
+  skip_if_too_deep(5)
+
+  app <- app_driver_tm_outlier()
+  app$expect_no_shiny_error()
+  app$stop()
+})