change datasets sources for shinytest2 tests

m7pr · m7pr · commit 2cc97e19ff78 · 2024-12-16T09:38:16.000+01:00
diff --git a/tests/testthat/helper-TealAppDriver.R b/tests/testthat/helper-TealAppDriver.R
@@ -39,7 +39,7 @@ simple_cdisc_data <- function(datasets = c("ADSL", "ADRS", "ADTTE")) {
 
   data <- Reduce(
     x = datasets,
-    function(u, x) eval_code(u, sprintf("%1$s <- teal.modules.general::r%1$s", x)),
+    function(u, x) eval_code(u, sprintf("%1$s <- teal.data::r%1$s", x)),
     init = within(teal.data::teal_data(), require(nestcolor))
   )
 

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ simple_cdisc_data <- function(datasets = c("ADSL", "ADRS", "ADTTE")) {`
`39`	`39`
`40`	`40`	`data <- Reduce(`
`41`	`41`	`x = datasets,`
`42`		`- function(u, x) eval_code(u, sprintf("%1$s <- teal.modules.general::r%1$s", x)),`
	`42`	`+ function(u, x) eval_code(u, sprintf("%1$s <- teal.data::r%1$s", x)),`
`43`	`43`	`init = within(teal.data::teal_data(), require(nestcolor))`
`44`	`44`	`)`
`45`	`45`