change for tm_missing_data

insightsengineering · May 15, 2024 · 1cce483 · 1cce483
1 parent 3e5637c
commit 1cce483
Showing 1 changed file with 4 additions and 7 deletions.
diff --git a/tests/testthat/test-shinytest2-tm_misssing_data.R b/tests/testthat/test-shinytest2-tm_misssing_data.R
@@ -1,12 +1,9 @@
 app_driver_tm_missing_data <- function() {
-  data <- within(simple_teal_data(), {
-    set.seed(123)
-    require(nestcolor)
 
-    add_nas <- function(x) {
-      x[sample(seq_along(x), floor(length(x) * runif(1, .05, .17)))] <- NA
-      x
-    }
+  data <- within(teal_data(), {
+    mtcars = mtcars
+    IRIS = iris
+    set.seed(123)
 
     iris[] <- lapply(iris, add_nas)
     mtcars[] <- lapply(mtcars, add_nas)