R：参数的非标准评估

如何解决R：参数的非标准评估

我希望将 expression 对象传递给函数，以便其 substitute 给出相同的结果 - 并且似乎无法正确处理。

f1 <- function(x) { 
  print(substitute(x))         # a + 1 
  print(class(substitute(x)))  # "call"
  f2(x)
}

f2 <- function(y) {
  print(substitute(y))         # x
  print(class(substitute(y)))  # "name"
}

f1(a+1)

这里发生了什么？为什么类和 substitute 的值不同？

有没有办法在 R 中实现“完美转发”（即，将表达式按原样传递给函数）？

解决方法

最终两个函数调用是

f1(a+1)
f2(x)

a 或 x 中的实际内容并不重要，这就是 f1 和 f2 函数在调用时看到的所有内容。在一种情况下，您正在传递 a+1，它是对 + 函数的调用。在另一个中，您只是传递 x ，它只是一个符号名称。 R 对这两种情况的处理方式不同，因此它们具有不同的类。

class(quote(a+1))
# [1] "call"
class(quote(a))
# [1] "name"

如果您想要“完美”的转发，那么最简单的方法是在 inter 函数中根本不捕获变量并通过 ... 机制传递它。

f1 <- function(...) { 
  f2(...)
}

f2 <- function(y) {
  print(substitute(y))         # x
  print(class(substitute(y)))  # "name"
}

f1(a+1)
# a + 1
# [1] "call"

否则 substitute() 会将未评估的表达式存储在变量中，但如果您想将该表达式扩展回函数调用，则需要使用类似 do.call()

f1 <- function(x) { 
  sx <- substitute(x)
  print(sx)
  print(class(sx))  # "call"
  
  do.call("f2",list(sx))
}

f2 <- function(y) {
  print(substitute(y))         # x
  print(class(substitute(y)))  # "name"
}

f1(a+1)
# a + 1
# [1] "call"
# a + 1
# [1] "call"