Changed magrittr pipes to base pipe in examples (#1139)

Fixes #1133

NEWS.md

@@ -744,7 +744,7 @@ accessor(x[[1]])$foo
 to the equivalent pluck:
 
 ```
-x %>% pluck(1, accessor, "foo")
+x |> pluck(1, accessor, "foo")
 ```
 
 
@@ -968,7 +968,7 @@ This is a compatibility release with dplyr 0.6.0.
 
 * `set_names()` is a snake-case alternative to `setNames()` with stricter
   equality checking, and more convenient defaults for pipes:
-  `x %>% set_names()` is equivalent to `setNames(x, x)` (#119).
+  `x |> set_names()` is equivalent to `setNames(x, x)` (#119).
 
 
 ## Row based functionals
@@ -980,7 +980,7 @@ functions.
 * `map()` now always returns a list. Data frame support has been moved
   to `map_df()` and `dmap()`. The latter supports sliced data frames
   as a shortcut for the combination of `by_slice()` and `dmap()`:
-  `x %>% by_slice(dmap, fun, .collate = "rows")`. The conditional
+  `x |> by_slice(dmap, fun, .collate = "rows")`. The conditional
   variants `dmap_at()` and `dmap_if()` also support sliced data frames
   and will recycle scalar results to the slice size.
 

R/deprec-when.R

@@ -36,7 +36,7 @@
 #'
 #' @keywords internal
 #' @examples
-#' 1:10 %>%
+#' 1:10 |>
 #'   when(
 #'     sum(.) <=  50 ~ sum(.),
 #'     sum(.) <= 100 ~ sum(.)/2,

R/keep.R

@@ -68,12 +68,12 @@ compact <- function(.x, .p = identity) {
 #' @export
 #' @examples
 #' x <- c(a = 1, b = 2, cat = 10, dog = 15, elephant = 5, e = 10)
-#' x %>% keep_at(letters)
-#' x %>% discard_at(letters)
+#' x |> keep_at(letters)
+#' x |> discard_at(letters)
 #'
 #' # Can also use a function
-#' x %>% keep_at(~ nchar(.x) == 3)
-#' x %>% discard_at(~ nchar(.x) == 3)
+#' x |> keep_at(~ nchar(.x) == 3)
+#' x |> discard_at(~ nchar(.x) == 3)
 keep_at <- function(x, at) {
   where <- where_at(x, at, user_env = caller_env())
   x[where]

README.Rmd

@@ -52,7 +52,7 @@ library(purrr)
 mtcars |> 
   split(mtcars$cyl) |>  # from base R
   map(\(df) lm(mpg ~ wt, data = df)) |> 
-  map(summary) %>%
+  map(summary) |>
   map_dbl("r.squared")
 ```
 

README.md

@@ -51,7 +51,7 @@ library(purrr)
 mtcars |> 
   split(mtcars$cyl) |>  # from base R
   map(\(df) lm(mpg ~ wt, data = df)) |> 
-  map(summary) %>%
+  map(summary) |>
   map_dbl("r.squared")
 #>         4         6         8 
 #> 0.5086326 0.4645102 0.4229655

purrr.Rproj

@@ -19,5 +19,3 @@ BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
 PackageRoxygenize: rd,collate,namespace
-
-UseNativePipeOperator: Yes

vignettes/base.Rmd

@@ -281,9 +281,9 @@ The pipe is particularly compelling when working with longer transformations.
 For example, the following code splits `mtcars` up by `cyl`, fits a linear model, extracts the coefficients, and extracts the first one (the intercept).
 
 ```{r, eval = modern_r}
-mtcars %>% 
-  split(mtcars$cyl) %>% 
-  map(\(df) lm(mpg ~ wt, data = df)) %>% 
-  map(coef) %>% 
+mtcars |>
+  split(mtcars$cyl) |> 
+  map(\(df) lm(mpg ~ wt, data = df))|> 
+  map(coef) |> 
   map_dbl(1)
 ```

vignettes/other-langs.Rmd

@@ -23,7 +23,7 @@ purrr draws inspiration from many related tools:
 
 However, the goal of purrr is not to try and simulate a purer functional programming language in R; we don't want to implement a second-class version of Haskell in R. The goal is to give you similar expressiveness to an FP language, while allowing you to write code that looks and works like R:
 
-* Instead of point free (tacit) style, we use the pipe, `%>%`, to write code 
+* Instead of point free (tacit) style, we use the pipe, `|>`, to write code 
   that can be read from left to right.
 
 * Instead of currying, we use `...` to pass in extra arguments.