From 1cce48336d8804413af73bfb5fe1080cf6a85bda Mon Sep 17 00:00:00 2001
From: m7pr <marcin.kosinski.mk1@roche.com>
Date: Wed, 15 May 2024 13:26:31 +0200
Subject: [PATCH] change for tm_missing_data

---
 tests/testthat/test-shinytest2-tm_misssing_data.R | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/tests/testthat/test-shinytest2-tm_misssing_data.R b/tests/testthat/test-shinytest2-tm_misssing_data.R
index 30b11f90c..2656ea508 100644
--- 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)