Use native pipe in R integration tests

Author: nealrichardson

script/ci-compat-check/dump_r_pins.R

@@ -1,5 +1,5 @@
 library(pins)
-args <- commandArgs(trailingOnly=TRUE)
+args <- commandArgs(trailingOnly = TRUE)
 
 board <- board_folder(args[1])
-board %>% pin_write(mtcars, "mtcars", type="csv")
+board |> pin_write(mtcars, "mtcars", type = "csv")

script/ci-compat-check/validate_py_to_r.R

@@ -1,6 +1,6 @@
 library(pins)
 
-args <- commandArgs(trailingOnly=TRUE)
+args <- commandArgs(trailingOnly = TRUE)
 
 
 # create board ----
@@ -13,13 +13,13 @@ board_r <- board_folder(args[2])
 
 cat("Checking mtcars pin\n")
 
-res_mtcars <- board_py %>% pin_read("mtcars")
-stopifnot(all.equal(res_mtcars, datasets::mtcars, check.attributes=FALSE))
+res_mtcars <- board_py |> pin_read("mtcars")
+stopifnot(all.equal(res_mtcars, datasets::mtcars, check.attributes = FALSE))
 
-meta_mtcars_py <- board_py %>% pin_meta("mtcars")
+meta_mtcars_py <- board_py |> pin_meta("mtcars")
 cat("\nPython meta:\n\n")
 print(meta_mtcars_py)
 
-meta_mtcars_r <- board_r %>% pin_meta("mtcars")
+meta_mtcars_r <- board_r |> pin_meta("mtcars")
 cat("\nR meta:\n\n")
 print(meta_mtcars_r)

script/stage_r_pins.R

@@ -3,22 +3,22 @@ library(pins)
 df <- data.frame(x = 1:2, y = c("a", "b"))
 df_v2 <- data.frame(x = 1:2, y = c("a", "b"), z = 3:4)
 
-#board <- board_s3("ci-pins", prefix = "r-pins-test")
-board <- board_folder("pins/tests/pins-compat", versioned=TRUE)
+# board <- board_s3("ci-pins", prefix = "r-pins-test")
+board <- board_folder("pins/tests/pins-compat", versioned = TRUE)
 
-all_pins <- board %>% pin_list()
-board %>% pin_delete(all_pins)
+all_pins <- board |> pin_list()
+board |> pin_delete(all_pins)
 
 # write two versions of df as CSV ----
-board %>% pin_write(df, "df_csv", type="csv")
+board |> pin_write(df, "df_csv", type = "csv")
 Sys.sleep(2)
-board %>% pin_write(df_v2, "df_csv", type="csv")
+board |> pin_write(df_v2, "df_csv", type = "csv")
 
 # write two versions of df as arrow ----
-board %>% pin_write(df, "df_arrow", type="arrow")
+board |> pin_write(df, "df_arrow", type = "arrow")
 
 # write two versions of df as RDS ----
-board %>% pin_write(df, "df_rds", type="rds")
+board |> pin_write(df, "df_rds", type = "rds")
 
 # write unversioned pin as CSV
-board %>% pin_write(df, "df_unversioned", versioned=FALSE)
+board |> pin_write(df, "df_unversioned", versioned = FALSE)