@@ -3,22 +3,22 @@ library(pins)
33df <- data.frame (x = 1 : 2 , y = c(" a" , " b" ))
44df_v2 <- data.frame (x = 1 : 2 , y = c(" a" , " b" ), z = 3 : 4 )
55
6- # board <- board_s3("ci-pins", prefix = "r-pins-test")
7- board <- board_folder(" pins/tests/pins-compat" , versioned = TRUE )
6+ # board <- board_s3("ci-pins", prefix = "r-pins-test")
7+ board <- board_folder(" pins/tests/pins-compat" , versioned = TRUE )
88
9- all_pins <- board % > % pin_list()
10- board % > % pin_delete(all_pins )
9+ all_pins <- board | > pin_list()
10+ board | > pin_delete(all_pins )
1111
1212# write two versions of df as CSV ----
13- board % > % pin_write(df , " df_csv" , type = " csv" )
13+ board | > pin_write(df , " df_csv" , type = " csv" )
1414Sys.sleep(2 )
15- board % > % pin_write(df_v2 , " df_csv" , type = " csv" )
15+ board | > pin_write(df_v2 , " df_csv" , type = " csv" )
1616
1717# write two versions of df as arrow ----
18- board % > % pin_write(df , " df_arrow" , type = " arrow" )
18+ board | > pin_write(df , " df_arrow" , type = " arrow" )
1919
2020# write two versions of df as RDS ----
21- board % > % pin_write(df , " df_rds" , type = " rds" )
21+ board | > pin_write(df , " df_rds" , type = " rds" )
2222
2323# write unversioned pin as CSV
24- board % > % pin_write(df , " df_unversioned" , versioned = FALSE )
24+ board | > pin_write(df , " df_unversioned" , versioned = FALSE )
0 commit comments