R：将值传递给嵌套函数中的eval

Question

我想将某些查询传递给使用'eval'的较低级别的函数。这里有一个简单的例子：

f1 <- function(x, q) eval(substitute(q), envir=x) 
f2 <- function(x, q) f1(x, q) 

发生了什么事：

> x <- data.frame(a=1:5) 
> f1(x, a<3) 
[1] TRUE TRUE FALSE FALSE FALSE 
> f2(x, a<3) 
Error in eval(expr, envir, enclos) : object 'a' not found 

虽然我想F2产生类似F1相同的输出。参数'q'是一些将在'x'上评估的通用查询。我保持这个例子简单而一般，但我想扩展它在更复杂的函数和查询上的行为。对我来说重要的是如何“传递”查询“q”，以便eval知道如何处理它，而不管之前有多少嵌套函数级别。

我该怎么做？谢谢！

Answer 1

你可以这样做：

f1 <- function(x, q) eval(substitute(q), envir=x) 
f2 <- function(x, q) eval(substitute(f1(x, q))) 

y <- data.frame(a=1:5) 
f1(y, a<3) 
f2(y, a<3) 

Answer 2

因为你只是定义x。您需要：

> f2(x, x$a<3) 
> [1] TRUE TRUE FALSE FALSE FALSE