Replace |> with %>% in tests to prevent them from failing with R 3.6

epiforecasts · Nov 20, 2023 · fbcf6f1 · fbcf6f1
1 parent 32d8c2d
commit fbcf6f1
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-plot_interval_coverage.R b/tests/testthat/test-plot_interval_coverage.R
@@ -1,5 +1,5 @@
 test_that("plot_interval_coverage() works as expected", {
-  coverage <- add_coverage(example_quantile) |>
+  coverage <- add_coverage(example_quantile) %>%
     summarise_scores(by = c("model", "range"))
   p <- plot_interval_coverage(coverage)
   expect_s3_class(p, "ggplot")

diff --git a/tests/testthat/test-plot_quantile_coverage.R b/tests/testthat/test-plot_quantile_coverage.R
@@ -1,5 +1,5 @@
 test_that("plot_quantile_coverage() works as expected", {
-  coverage <- add_coverage(example_quantile) |>
+  coverage <- add_coverage(example_quantile) %>%
     summarise_scores(by = c("model", "quantile"))
 
   p <- plot_quantile_coverage(coverage)

diff --git a/tests/testthat/test-plot_ranges.R b/tests/testthat/test-plot_ranges.R
@@ -1,8 +1,8 @@
 m <- modifyList(metrics_no_cov_no_ae, list("bias" = NULL))
 
 sum_scores <- copy(example_quantile) %>%
-  .[, interval_range := scoringutils:::get_range_from_quantile(quantile)] |>
-  score(metrics = m) |>
+  .[, interval_range := scoringutils:::get_range_from_quantile(quantile)] %>%
+  score(metrics = m) %>%
   summarise_scores(by = c("model", "target_type", "interval_range"))
 
 sum_scores[, range := interval_range]