Question

一位同事问我这个，我一直在努力。

假设我想定义一个函数，它接受一个表达式（比如说x^2具体而言）作为参数并将该参数传递给curve()。

如果我想以简单的方式做到这一点，我只需要运行

curve(x^2,from=0,to=3)

它工作正常。

假设我尝试设置一个包装函数（假设除了绘制曲线之外，我还想在包装器中做其他事情）：

f <- function(g) {
    curve(g,from=0,to=3)
}

如果我传递一个函数，这是有效的：

f(function(x) x^2)

如果我尝试传递x^2，当R试图评估表达式时，它会失败：

f(x^2)
## Error in eval(expr, envir, enclos) (from #2) : object 'x' not found

我可以尝试在函数中使用substitute来阻止这种情况：

f0 <- function(g) {
    str(substitute(g))
    curve(substitute(g),from=0,to=3)
}
f0(x^2)
## language x^2
## Error in curve(substitute(g), from = 0, to = 3) (from #3) : 
##  'expr' must be a function, or a call or an expression containing 'x'

好的，这表明我应该尝试

f <- function(g) {
    h <- as.expression(substitute(g))
    str(h)
    curve(as.expression(substitute(g)),from=0,to=3)
}
f(x^2)
##  expression(x^2)
## Error in curve(as.expression(substitute(g)), from = 0, to = 3) (from #4) : 
##  'expr' must be a function, or a call or an expression containing 'x'

为了它的价值，

这与curve(h,...)（“函数h未找到”）
如果as.call()替换为as.expression()
curve()在任何情况下都不适用于表达式：

curve(expression(x^2),from=0,to=1)
## Error in curve(expression(x^2), from = 0, to = 1) : 
##   'expr' did not evaluate to an object of length 'n'

如果我尝试调试curve()以查看正在发生的事情，我们有：

sexpr <- substitute(expr)
...
if (!((is.call(sexpr) || is.expression(sexpr)) && xname %in% 
    all.vars(sexpr))) 
    stop(...)

此处sexpr为substitute(g)，未通过xname %in% all.vars(sexpr)测试......

有关如何处理此事的任何想法？

Answer 1

我没有意思问及然后回答，但是我想出了一个更好的答案的答案 - 我突然想到我没有尝试过eval。 eval(curve(substitute(g),from=0,to=3)) 不工作，但确实如此：

f1 <- function(g) {
     eval(substitute(curve(g,from=0,to=3)))
}
f1(x^2)

更新：@ RichardScriven建议do.call()也可能有效 - 而且确实如此！

f2 <- function(g) {
    do.call(curve,list(substitute(g),from=0,to=3))
}
f2(x^2)

欢迎进一步解释！

将表达式传递给函数中的curve（）

1 个答案: