优雅的增量运算符作为管道

Question

library(magrittr)
x <- 2
x %<>% 
  add(3) %>% 
  subtract(1)
x

是否有预定义的更易读的方式与管道一起使用？

可能类似于x %+=% 3 %-=% 1

Answer 1

简短的回答

没有。

长答案

递增运算符很容易制作：

%+=% <- function (x, inc) x + inc
%-=% <- function (x, dec) x - dec

但是，这些函数不会直接修改 x，因为 R 非常努力地阻止函数修改其范围之外的变量。也就是说，您仍然需要编写x <- x %+=% 1 才能真正更新x。

Hmisc 包中的 inc<- 和 dec<- 函数可以解决此限制。所以你可能会惊讶地发现inc<-的定义只是：

function (x, value) 
{
    x + value
}

也就是说，函数内部的代码与我们自定义的%+=%操作符中的代码完全相同。神奇的发生是因为 R 解析器中的一个特殊功能，它可以解释

inc(x) <- 1

作为

x <- `inc<-`(x, 1)

这就是您能够执行names(iris) <- letters[length(iris)] 之类的操作的方式。

%<>% 很神奇，因为它在其范围之外修改了x。这也非常违反 R 的编码范式*。因此，所需的机器很复杂。要以您喜欢的方式实现%+=%，您需要对%<>% 进行逆向工程。不过，可能值得在他们的 GitHub 上提出功能请求。

*除非您是data.table 用户，在这种情况下，您无论如何都没有希望。