remove |>

poissonconsulting · Jan 23, 2025 · 615fce7 · 615fce7
1 parent 160d580
commit 615fce7
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/test-helpers.R b/R/test-helpers.R
@@ -6,10 +6,9 @@ save_csv <- function(x) {
 
 expect_snapshot_data <- function(x, name, digits = 6) {
   fun <- function(x) signif(x, digits = digits)
-  x <- x |>
-    as.list() |>
-    purrr::map_if(.p = is.numeric, .f = signif, digits = digits) |>
-    as.data.frame()
+  x <- as.list(x) |>
+  x <- purrr::map_if(x, .p = is.numeric, .f = signif, digits = digits)
+  x <- as.data.frame(x)
   path <- save_csv(x)
   testthat::expect_snapshot_file(
     path,