From 53f9e6c16dc35438c153f5caea5969bda8ec760e Mon Sep 17 00:00:00 2001 From: kartikeya kirar Date: Mon, 22 Apr 2024 17:39:06 +0530 Subject: [PATCH] fixing shinytest2 fail for tm_missing_data (#738) A test in tm_missing_data is failing because a slider's default value gives an error. It passed in PR [727](https://github.com/insightsengineering/teal.modules.general/pull/727) with a value of 2L, but here it was showing 1L. I fixed it in PR [733](https://github.com/insightsengineering/teal.modules.general/pull/733) with app_driver$get_active_module_input("iris-combination_cutoff"), but it's causing an error in another PR again. To fix I have set.seed in` teal_data()` --- tests/testthat/test-shinytest2-tm_misssing_data.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/testthat/test-shinytest2-tm_misssing_data.R b/tests/testthat/test-shinytest2-tm_misssing_data.R index 0e98298b0..817449c97 100644 --- a/tests/testthat/test-shinytest2-tm_misssing_data.R +++ b/tests/testthat/test-shinytest2-tm_misssing_data.R @@ -1,5 +1,6 @@ app_driver_tm_missing_data <- function() { data <- within(simple_teal_data(), { + set.seed(123) require(nestcolor) add_nas <- function(x) {