R：将表达式传递给内部函数

Question

进一步深入研究R评估的奥秘...这与我之前的问题密切相关（ 如何编写计算数据帧内表达式的 R 函数）。假设我想编写一个函数 topfn ，它接受一个数据帧和一个涉及该数据帧的列名的表达式。我想将这两个参数传递给另一个函数 fn ，该函数实际上计算数据帧“环境”内的表达式。 我希望 fn 和 topfn 在传递数据帧和表达式时都能正常工作

我的第一次尝试，如答案中所建议的上面的问题是定义：

 fn <- function(dfr, expr) {
   mf <- match.call()
   eval( mf$expr, envir = dfr )
 }

并像这样定义 topfn ：

topfn <- function(df, ex) {
  mf <- match.call()
  fn(df, mf$ex) 
}

现在，如果我有一个数据框，

df <- data.frame( a = 1:5, b = 1:5 )

内部函数 fn 可以正常工作：

> fn(df,a)
[1] 1 2 3 4 5

但是 topfn< /code> 不起作用：

> topfn(df,a)
mf$ex

为了解决这个问题，我首先检查 topfn(df,a) 的类，

> class(topfn(df,a))
[1] "call"

这给了我一个重新定义 fn 的丑陋黑客的想法> 如下：

fn <- function(dfr, expr) {
  mf <- match.call()
  res <- eval(mf$expr, envir = dfr)  
  if(class(res) == 'call')
    eval(expr, envir = dfr) else
  res
}

现在两个函数都可以工作：

> fn(df,a)
[1] 1 2 3 4 5
> topfn(df,a)
[1] 1 2 3 4 5

正如我所说，这看起来像是一个丑陋的黑客。有没有更好的方法（或更标准的习惯用法）来让这些工作？ 我查阅了 Lumley 的名称奇怪的标准非标准评估规则文档 http://developer.r- project.org/nonstandard-eval.pdf，但读完后并没有特别受启发。任何指向我可以查看示例的函数源代码的指针也很有帮助。

Answer 1

通过将字符串传递到 topfn 而不是表达式中，可以最轻松地避免这种情况。

topfn <- function(df, ex_txt) 
{
  fn(df, ex_txt) 
}

fn <- function(dfr, expr_txt) 
{        
   eval(parse(text = expr_txt), dfr) 
}

df <- data.frame(a = 1:5, b = 1:5 )
fn(df, "a")                              
fn(df, "2 * a + b")
topfn(df, "a")             
topfn(df, "2 * a + b")

编辑：

您可以让用户传递表达式，但为了方便起见，请在下面使用字符串。

将 topfn 更改为

topfn <- function(df, ex) 
{
  ex_txt <- deparse(substitute(ex))
  fn(df, ex_txt) 
}
topfn(df, a)             
topfn(df, 2 * a + b)

另一个编辑：

这似乎有效：

topfn <- function(df, ex) 
{
  eval(substitute(fn(df, ex)))
}

fn <- function(dfr, expr) 
{        
   eval(substitute(expr), dfr) 
}
fn(df, a)                              
fn(df, 2 * a + b)
topfn(df, a)             
topfn(df, 2 * a + b)

Answer 2

您可以使用三个点来收集参数并将它们传递给另一个函数，这是您的意思吗？

ftop=function(...) f(...)
f=function(a,b) a[b]

a=data.frame(b=10)

ftop(a,"b")

f(a,"b")