R链运算符用法

Question

我明白在R中我们可以通过使用链运算符来创建特殊函数，但是我怎样才能知道链运算符的函数实现/代码呢？

如果我想找出源的功能，我用> functionname

但是，当我试图找到运营商> "%*%"源代码并没有打印出任何东西。有人可以帮助我如何找到上述连锁运营商的源代码？

Answer 1

假设您在谈论管道运营商，您需要使用library加载包magrittr或dplyr。然后，你需要使用反引号来访问函数定义：

library(dplyr) 
`%>%` 

这给

function (lhs, rhs)  { 
    lhs <- substitute(lhs) 
    rhs <- substitute(rhs) 
    if (is.call(rhs) && identical(rhs[[1]], quote(`(`))) 
     rhs <- eval(rhs, parent.frame(), parent.frame()) 
    ... 

这样做的原因是这里解释Function name in single quotation marks in R