steveharoz / pipebind

Flexible binding for complex function evaluation with the Base R |> pipe

pipebind: Bind a (piped) object to a symbol for complex function evaluation

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 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.

Installation

You can install the development version of pipebind like so:

remotes::install_github("bwiernik/pipe)

Example

This is a basic example which shows you how to solve a common problem:

library(pipebind)

if (getRversion() >= 4.1) {
  set.seed(2016)
  
  # Piping to a non-first argument
  mtcars |>
    transform(kmL = mpg / 2.35) |>
    bind(d, lm(kmL ~ hp, data = d))
  
  # Using the piped value multiple times
  rnorm(10) |>
    bind(x, x - mean(x))
  
  # Using the piped value in multiple arguments
  c(a = 1, b = 2, c = 3) |>
    bind(x, paste(names(x), x, sep = " = "))
  
  # 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.4

Code of Conduct

Please 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.