magrittr pipe %>% 在阴影中做什么

发布于04月22日

由于%&gt；%运算符的工作方式，这两个函数不会产生相同的输出，但我不明白为什么？

my_function <- function(x) {
 # Extract the name of x
 the_name_of_x <- deparse(substitute(x))
 print(the_name_of_x)
}

my_other_function <- function(x) {
 # Extract the name of x
 the_name_of_x <- x %>% substitute() %>% deparse()
 print(the_name_of_x)
}

# Example
my_function("zaza")
# [1] "\"zaza\""
my_other_function("zaza")
# [1] "x"

我真的不明白这有什么不同.

推荐答案

如果使用本地管道，您将获得与第一个相同的值

yet_another_function <- function(x) {
  # Extract the name of x
  the_name_of_x <- x |> substitute() |> deparse()
  print(the_name_of_x)
}

原因是|>管道实际上重写了语法树，所以它实际上不是一个函数.观察

quote(x |> substitute() |> deparse())
deparse(substitute(x))

然而，%>%是一个函数.它将出现在调用堆栈上.substitute函数使用非标准求值，这意味着它查看传递给该函数的表达式.%>%函数不能完全重写调用.它将函数参数的promise 求值为表达式.substitute是一个特殊的函数，因为如果您想要获取promise 指向的值，则需要在判断promise 之前执行此操作.

您可以看到magrittr管道函数的源代码

`%>%`
function (lhs, rhs) 
{
    lhs <- substitute(lhs)
    rhs <- substitute(rhs)
    kind <- 1L
    env <- parent.frame()
    lazy <- TRUE
    .External2(magrittr_pipe)
}

您可以看到它已经在使用substitute来获取其参数的未求值表达式.promise 不能在这种间接的情况下生存下来.