如何在R中实现F＃的前向管道运算符？

Question

如何在R中实现F＃的前向管道运算符？操作员可以轻松地链接一系列计算。例如，当您有输入data并希望按顺序调用函数foo和bar时，您可以写：

data |> foo |> bar

而不是写bar(foo(data))。好处是您可以避免使用某些括号，并且计算的执行顺序与执行顺序相同（从左到右）。在F＃中，运算符定义如下：

let (|>) a f = f a

看起来％...％可以用于二元运算符，但是它会如何工作？

Answer 1

我不知道它对任何实际用途有多好，但这似乎（？）做你想要的，至少对于单参数函数......

> "%>%" <- function(x,f) do.call(f,list(x))
> pi %>% sin
[1] 1.224606e-16
> pi %>% sin %>% cos
[1] 1
> cos(sin(pi))
[1] 1

Answer 2

编辑：现在打包在CRAN上。示例包括。

magrittr包是为此而制作的。

install.packages("magrittr")

示例：

iris %>%
  subset(Sepal.Length > 5) %>%
  aggregate(. ~ Species, ., mean)

另外，请看小插图：http://cran.r-project.org/web/packages/magrittr/vignettes/magrittr.html 如果您喜欢F＃管道，它有很多有用的功能，谁也没有？！

Answer 3

问题是你在谈论完全不同的调用函数的范例，所以它并不是很清楚你想要什么。 R只使用F＃中的元组作为元组参数（在R中命名），所以考虑它的一种方法很简单

fp = function(x, f) f(x)

将执行调用，例如

> fp(4, print)
[1] 4

这是等效的，但不适用于像4 |> f x y这样的非tupple情况，因为在R中没有这样的东西。你可以尝试模拟F＃功能行为，但它会很尴尬：

fp = function(x, f, ...) function(...) f(x, ...)

这将始终有效，因此链接将起作用，例如

> tri = function(x, y, z) paste(x,y,z)
> fp("foo", fp("mar", tri))("bar")
[1] "mar foo bar"

但由于R不会将不完整的调用转换为函数，因此它并不真正有用。相反，R具有基于元组概念的更灵活的调用。注意R使用功能和命令范式的混合，它不是纯函数，因此它不执行参数值匹配等。

编辑，因为您更改了问题，因为您对语法感兴趣而且只有特殊情况，只需将上面的fp替换为中缀表示法：

`%>%` = function(x, f) f(x)
> 1:10 %>% range %>% mean
[1] 5.5

（使用Ben的运算符;））