more pipe fixes -- forgot to search tests

traitecoevo · Nov 13, 2024 · ad6bea3 · ad6bea3
1 parent 871fac8
commit ad6bea3
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 12 deletions.
diff --git a/tests/testthat/test-extract_.R b/tests/testthat/test-extract_.R
@@ -9,7 +9,7 @@ genus = "Eucalyptus"
 taxon_name = "Banskia serrata"
 
 test_that("Error message is triggered", {
-  expect_error(austraits_5.0.0_lite |> extract_taxa())
+  expect_error(austraits_5.0.0_lite %>% extract_taxa())
 })
 
 test_extract_error <- function(austraits){

diff --git a/tests/testthat/test-misc_bugs_.R b/tests/testthat/test-misc_bugs_.R
@@ -13,13 +13,13 @@ test_that("Dataframe is extracted correctly", {
     dplyr::filter(trait_name == "lifespan")
 
   # Extract trait after
-  veronica |>  extract_trait("lifespan") -> genus_first
+  veronica %>%  extract_trait("lifespan") -> genus_first
 
   # Extract trait first
-  austraits |> extract_trait("lifespan") -> lifespan
+  austraits %>% extract_trait("lifespan") -> lifespan
 
   # Extract taxa after
-  lifespan |> extract_taxa(genus = "Veronica") -> trait_first
+  lifespan %>% extract_taxa(genus = "Veronica") -> trait_first
 
   expect_setequal(trait_first$traits$value, veronica_lifespan$value)
   expect_setequal(trait_first$traits$value, genus_first$traits$value)

diff --git a/tests/testthat/test-plot_.R b/tests/testthat/test-plot_.R
@@ -16,14 +16,14 @@ test_that("Function doesn't throw error", {
 
 test_non_compatibile <- function(austraits){
   test_that("Throws correct errors for deprecated or non-compatible",{
-    expect_error(austraits |> 
-                   extract_dataset("Falster_2003") |> 
-                   purrr::pluck("traits") |> plot_locations()
+    expect_error(austraits %>% 
+                   extract_dataset("Falster_2003") %>% 
+                   purrr::pluck("traits") %>% plot_locations()
     )
 
-    expect_error(austraits |> 
-                   extract_dataset("Falster_2003") |> 
-                   purrr::pluck("traits") |> plot_lplot_site_locationsocations()
+    expect_error(austraits %>% 
+                   extract_dataset("Falster_2003") %>% 
+                   purrr::pluck("traits") %>% plot_lplot_site_locationsocations()
     )
   })
 }

diff --git a/tests/testthat/test-trait_pivot_.R b/tests/testthat/test-trait_pivot_.R
@@ -6,7 +6,7 @@ test_pivot_success <- function(austraits){
   test_that("pivot on subset of data", {
 
     expect_silent(
-      wide_data <- austraits |> trait_pivot_wider()
+      wide_data <- austraits %>% trait_pivot_wider()
     )
 
     expect_type(wide_data, "list")
@@ -19,7 +19,7 @@ purrr::walk(inputs,
 
 
 test_that("Widen structure is expected", {
-  wide_data <- austraits_5.0.0_lite |> trait_pivot_wider()
+  wide_data <- austraits_5.0.0_lite %>% trait_pivot_wider()
   names(wide_data)
   #Checking if widened data has the same length as variables that we are spreading
   expect_gt(ncol(wide_data), ncol(austraits_5.0.0_lite$traits))