remove R pipe from unit tests

insightsengineering · Nov 22, 2023 · cf92fa3 · cf92fa3
1 parent 25925e2
commit cf92fa3
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/tests/testthat/test-module_nested_tabs.R b/tests/testthat/test-module_nested_tabs.R
@@ -1,3 +1,5 @@
+teal_data <- teal.data::teal_data()
+teal_data <- within(teal_data, iris <- head(iris))
 teal_data <- teal.data::teal_data() |> within(iris <- head(iris))
 datanames(teal_data) <- "iris"
 filtered_data <- teal_data_to_filtered_data(teal_data)

diff --git a/tests/testthat/test-module_tabs_with_filters.R b/tests/testthat/test-module_tabs_with_filters.R
@@ -1,6 +1,6 @@
-teal_data <- teal.data::teal_data() |>
-  within(iris <- head(iris)) |>
-  within(mtcars <- mtcars)
+teal_data <- teal.data::teal_data()
+teal_data <- within(teal_data, iris <- head(iris))
+teal_data <- within(teal_data, mtcars <- head(mtcars))
 datanames(teal_data) <- c("iris", "mtcars")
 filtered_data <- teal_data_to_filtered_data(teal_data)
 

diff --git a/tests/testthat/test-module_teal_with_splash.R b/tests/testthat/test-module_teal_with_splash.R
@@ -96,7 +96,7 @@ testthat::test_that("srv_teal_with_splash teal_data_rv_validate throws then qenv
       id = "test",
       data = teal_data_module(
         ui = function(id) div(),
-        server = function(id) reactive(teal_data() |> within(stop("not good")))
+        server = function(id) reactive(teal_data() %>% within(stop("not good")))
       ),
       modules = modules(example_module())
     ),