The base R |> pipe lacks some advanced functionality
compared to the {magrittr} %>% pipe. For
example, the piped object can only appear once on the right-hand side of
the pipe (either as the first unnamed argument or elsewhere using the
_ placeholder), and the _ placeholder cannot
appear on the left side of sub-setting functions like $,
[, [[, or @.
This package provides a bind() function as a way to
conveniently circumvent these limitations. Pipe an object into
bind(), choose a placeholder symbol to represent it, then
use this placeholder to refer the piped object in any way and as many
times as desired in an R expression.
You can install {pipebind} from CRAN:
install.packages("pipebind")You can install the development version of {pipebind}
like so:
remotes::install_github("bwiernik/pipebind")This is a basic example which shows you how to solve a common problem:
library(pipebind)
set.seed(2016)
# Piping to a non-first argument
mtcars |>
transform(kmL = mpg / 2.35) |>
bind(d, lm(kmL ~ hp, data = d))
#>
#> Call:
#> lm(formula = kmL ~ hp, data = d)
#>
#> Coefficients:
#> (Intercept) hp
#> 12.80803 -0.02903
# Using the piped value multiple times
rnorm(10) |>
bind(x, x - mean(x))
#> [1] -0.55014875 1.36584095 0.30817018 0.66123825 -2.42687776 0.08185269
#> [7] -0.39891573 -0.32041684 0.73166705 0.54758995
# Using the piped value in multiple arguments
c(a = 1, b = 2, c = 3) |>
bind(x, paste(names(x), x, sep = " = "))
#> [1] "a = 1" "b = 2" "c = 3"
# Subsetting the piped value
mtcars |>
bind(d, d$mpg)
#> [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2 10.4
#> [16] 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4 15.8 19.7
#> [31] 15.0 21.4Please note that the pipebind project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.