Switch to using native pipe |> operator (#879)

* Switch to using native pipe `|>` operator

* Fix test for native pipe

* Do I still need this?

* Escalate deprecation for old functions

* Update snapshot for deprecated functionality

* Remove test for deprecated function

* Update tests for deprecation

* Update more snapshots for deprecation

* Update a few more tests for legacy pins

* Update examples for deprecated functions

* OK, let's get serious now about updating the examples

* Update NEWS

Author: juliasilge

.github/cross-compat/read-pins.R

@@ -2,5 +2,5 @@ library(pins)
 args <- commandArgs(trailingOnly = TRUE)
 
 board <- board_folder(args[1])
-res <- board %>% pin_read("mtcars-py")
+res <- board |> pin_read("mtcars-py")
 testthat::expect_equal(res, datasets::mtcars, ignore_attr = TRUE)

.github/cross-compat/write-pins.R

@@ -2,4 +2,4 @@ library(pins)
 args <- commandArgs(trailingOnly = TRUE)
 
 board <- board_folder(args[1])
-board %>% pin_write(mtcars, "mtcars-r", type = "csv", tags = c("cars", "fuel"))
+board |> pin_write(mtcars, "mtcars-r", type = "csv", tags = c("cars", "fuel"))

.github/workflows/R-CMD-check.yaml

@@ -52,12 +52,6 @@ jobs:
         with:
           extra-packages: any::rcmdcheck
           needs: check
-
-      - name: "Set LOGNAME environment variable to get _R_CHECK_THINGS_IN_OTHER_DIRS_ to work"
-        run: |
-          cat("LOGNAME=", Sys.info()[["user"]], "\n", sep = "", file = Sys.getenv("GITHUB_ENV"), append = TRUE)
-        shell: Rscript {0}
-
       - uses: r-lib/actions/check-r-package@v2
         with:
           error-on: '"note"'

DESCRIPTION

@@ -19,7 +19,7 @@ License: Apache License (>= 2)
 URL: https://pins.rstudio.com/, https://github.com/rstudio/pins-r
 BugReports: https://github.com/rstudio/pins-r/issues
 Depends: 
-    R (>= 3.6)
+    R (>= 4.1.0)
 Imports:
     cli,
     digest,
@@ -29,7 +29,6 @@ Imports:
     httr,
     jsonlite,
     lifecycle,
-    magrittr,
     purrr (>= 1.0.0),
     rappdirs,
     rlang (>= 1.1.0),

NAMESPACE

@@ -174,7 +174,6 @@ S3method(write_board_manifest_yaml,pins_board_folder)
 S3method(write_board_manifest_yaml,pins_board_ms365)
 S3method(write_board_manifest_yaml,pins_board_s3)
 S3method(write_board_manifest_yaml,pins_board_url)
-export("%>%")
 export(board_azure)
 export(board_browse)
 export(board_cache_path)
@@ -266,7 +265,6 @@ importFrom(cli,cli_text)
 importFrom(generics,required_pkgs)
 importFrom(glue,glue)
 importFrom(lifecycle,deprecated)
-importFrom(magrittr,"%>%")
 importFrom(purrr,compact)
 importFrom(purrr,imap)
 importFrom(purrr,map)
@@ -275,4 +273,5 @@ importFrom(purrr,map_chr)
 importFrom(purrr,map_dbl)
 importFrom(purrr,map_int)
 importFrom(purrr,map_lgl)
+importFrom(purrr,pluck)
 importFrom(purrr,possibly)

NEWS.md

@@ -6,6 +6,10 @@
 
 * Added support for writing pins with multiple types, like `type = c("rds", "csv")` (#877, @lbm364dl).
 
+* Switched to using the native pipe in examples and documentation (#879).
+
+* Further escalated gradual deprecation process for legacy pins functions such as `pin()` (#879).
+
 # pins 1.4.1
 
 * Support new `preview_data` parameter for pin previews on Posit Connect (#850).

R/board.R

@@ -197,7 +197,7 @@ board_deparse.pins_board <- function(board, ...) {
 #' write_board_manifest(board)
 #'
 #' # see the manifest's format:
-#' fs::path(board$path, "_pins.yaml") %>% readLines() %>% cat(sep = "\n")
+#' fs::path(board$path, "_pins.yaml") |> readLines() |> cat(sep = "\n")
 #'
 #' # if you write another pin, the manifest file is out of date:
 #' pin_write(board, 1:10, "nice-numbers", type = "json")
@@ -223,8 +223,8 @@ make_manifest <- function(board) {
 
   result <- map(
     pin_names,
-    ~fs::path(.x, pin_versions(board, name = .x)$version) %>%
-      end_with_slash() %>% # versions usually don't include slash
+    ~fs::path(.x, pin_versions(board, name = .x)$version) |>
+      end_with_slash() |> # versions usually don't include slash
       as.list()
   )
   names(result) <- pin_names

R/board_azure.R

@@ -33,7 +33,7 @@
 #'   url <- "https://pins.blob.core.windows.net/public-data"
 #'   container <- AzureStor::blob_container(url)
 #'   board <- board_azure(container)
-#'   board %>% pin_read("mtcars")
+#'   board |> pin_read("mtcars")
 #' }
 #'
 #' \dontrun{
@@ -43,7 +43,7 @@
 #' url <- "https://myaccount.blob.core.windows.net/mycontainer"
 #' container <- AzureStor::blob_container(url, sas = "my-sas")
 #' board <- board_azure(container, "path/to/board")
-#' board %>% pin_write(iris)
+#' board |> pin_write(iris)
 #'
 #' # ADLSgen2 is a modern, efficient way to access blobs
 #' # - Use 'dfs' instead of 'blob' in the account URL to use the ADLSgen2 API
@@ -53,8 +53,8 @@
 #' adls_url <- "https://myaccount.dfs.core.windows.net/mycontainer"
 #' container <- AzureStor::storage_container(adls_url, sas = "my-sas")
 #' board <- board_azure(container, "path/to/board")
-#' board %>% pin_list()
-#' board %>% pin_read("iris")
+#' board |> pin_list()
+#' board |> pin_read("iris")
 #' }
 board_azure <- function(container, path = "", n_processes = 10, versioned = TRUE, cache = NULL) {
   check_installed("AzureStor")

R/board_connect.R

@@ -16,7 +16,7 @@
 #' setting the access type to `all`:
 #'
 #' ```r
-#' board %>% pin_write(my_df, access_type = "all")
+#' board |> pin_write(my_df, access_type = "all")
 #' ```
 #'
 #' (You can also do this in Posit Connect by setting "Access" to
@@ -28,7 +28,7 @@
 #' board <- board_url(c(
 #'   numbers = "https://pub.current.posit.team/public/great-numbers/"
 #' ))
-#' board %>% pin_read("numbers")
+#' board |> pin_read("numbers")
 #' ```
 #'
 #' You can find the URL of a pin with [pin_browse()].
@@ -40,7 +40,7 @@
 #' table preview for rectangular data, but you can opt out of the table preview:
 #'
 #' ```r
-#' board %>% pin_write(my_df, preview_data = FALSE)
+#' board |> pin_write(my_df, preview_data = FALSE)
 #' ```
 #'
 #' @inheritParams new_board
@@ -74,10 +74,10 @@
 #' \dontrun{
 #' board <- board_connect()
 #' # Share the mtcars with your team
-#' board %>% pin_write(mtcars, "mtcars")
+#' board |> pin_write(mtcars, "mtcars")
 #'
 #' # Download a shared dataset
-#' board %>% pin_read("timothy/mtcars")
+#' board |> pin_read("timothy/mtcars")
 #' }
 board_connect <- function(auth = c("auto", "manual", "envvar", "rsconnect"),
                           server = NULL,

R/board_connect_url.R

@@ -25,7 +25,7 @@
 #'     my_vanity_url_pin = "https://pub.current.posit.team/public/great-numbers/"
 #' ))
 #'
-#' board %>% pin_read("my_vanity_url_pin")
+#' board |> pin_read("my_vanity_url_pin")
 #'
 board_connect_url <- function(vanity_urls,
                               cache = NULL,