r - 评估函数内环境中的表达式

Question

考虑:

guy <- new.env(FALSE)
guy$stuff <- mean
guy$lib <- library
guy$stole_this_data <- mtcars
ls(guy)

如何评估函数内环境中的表达式？

例如我可以做 with(guy, args(stuff))到下面并返回:

> with(guy, args(stuff))
function (x, ...) 
NULL

但是在一个函数中:

foo <- function(env, fun) {
    with(env, args(fun))
}

foo(guy, stuff)

## > foo(guy, stuff)
## Error in args(fun) : could not find function "stuff"

Answer 1

如果想继续使用with构造，这是一个替代方案:

foo <- function(env, fun) {
      fun <- substitute(fun)
      eval(bquote(with(env, {
        .(fun)
      })))
}