Use base R pipes

DESCRIPTION

@@ -14,7 +14,7 @@ URL: https://github.com/futureverse/furrr, https://furrr.futureverse.org/
 BugReports: https://github.com/futureverse/furrr/issues
 Depends:
     future (>= 1.25.0),
-    R (>= 3.4.0)
+    R (>= 4.1.0)
 Imports:
     globals (>= 0.14.0),
     lifecycle (>= 1.0.1),
@@ -27,7 +27,6 @@ Suggests:
     dplyr (>= 0.7.4),
     knitr,
     listenv (>= 0.6.0),
-    magrittr,
     rmarkdown,
     testthat (>= 3.0.0),
     tidyselect,
@@ -37,4 +36,4 @@ Config/Needs/website:
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -1,8 +1,20 @@
 # furrr (development version)
 
+## Signficant changes
+
+* furrr now requires R >= 4.1.0 (2021-05-18), because examples and vignettes
+  now use the base R pipe.
+
+## Features / Fixes
+
 * Fixed an issue where generating random seeds could sporadically fail (#271,
   @HenrikBengtsson).
 
+## Documentation
+
+* Updated documentation examples and vignettes to use the base R pipe symbol
+  instead of the magrittr `%>%` pipe operator (#285, @HenrikBengtsson).
+
 # furrr 0.3.1
 
 * Redocumented the package with roxygen2 7.2.1 to fix invalid HTML5 issues

R/future-map.R

@@ -39,18 +39,17 @@
 #'
 #' @export
 #' @examples
-#' library(magrittr)
 #' \donttest{plan(multisession, workers = 2)}
 #'
-#' 1:10 %>%
-#'   future_map(rnorm, n = 10, .options = furrr_options(seed = 123)) %>%
+#' 1:10 |>
+#'   future_map(rnorm, n = 10, .options = furrr_options(seed = 123)) |>
 #'   future_map_dbl(mean)
 #'
 #' # If each element of the output is a data frame, use
 #' # `future_map_dfr()` to row-bind them together:
-#' mtcars %>%
-#'   split(.$cyl) %>%
-#'   future_map(~ lm(mpg ~ wt, data = .x)) %>%
+#' mtcars |>
+#'   split(mtcars$cyl) |>
+#'   future_map(~ lm(mpg ~ wt, data = .x)) |>
 #'   future_map_dfr(~ as.data.frame(t(as.matrix(coef(.)))))
 #'
 #'

R/future-modify.R

@@ -18,18 +18,17 @@
 #'
 #' @export
 #' @examples
-#' library(magrittr)
 #' \donttest{plan(multisession, workers = 2)}
 #'
 #' # Convert each col to character, in parallel
 #' future_modify(mtcars, as.character)
 #'
-#' iris %>%
-#'  future_modify_if(is.factor, as.character) %>%
+#' iris |>
+#'  future_modify_if(is.factor, as.character) |>
 #'  str()
 #'
-#' mtcars %>%
-#'   future_modify_at(c(1, 4, 5), as.character) %>%
+#' mtcars |>
+#'   future_modify_at(c(1, 4, 5), as.character) |>
 #'   str()
 #'
 #' \dontshow{