Piping second or higher argument in native pipe-CodePudding

by magrittr's pipe (%>%) this code works;

library(dplyr)

set.seed(1)

a <- sample(LETTERS[1:30],5)

a %>% gsub('A','-',x = .)

but in R's native pipe I can't pipe with dot, this one doesn't work;

set.seed(1)

a <- sample(LETTERS[1:30],5)

a |> gsub('A','-',x = .)

How can we pass non-first arguments by native R pipe ?

CodePudding user response：

The R pipe passes the supplied object to the first unnamed argument. If you name the other arguments, it will be passed correctly. For gsub(), this looks like the following:

a |> gsub(pattern = 'A', replacement = '-')
# "Y" "D" "G" "-" "B"

CodePudding user response：

If you want to pass the LHS to something other than the first unnamed argument you can use an anonymous function, you just have to make it a function call.

set.seed(1)

a <- sample(LETTERS[1:30],5)

a |> (\(.) gsub('A', '-', x = .))()
#> [1] "Y" "D" "G" "-" "B"

^{Created on 2022-01-05 by the reprex package (v2.0.1)}