r - 将表达式传递给嵌套函数调用

Question

我想包装一个以表达式作为参数的函数。

例如：

f <- function(expr1) {
    substitute(expr1)
}
f({Sys.time()})

结果将是

>f({Sys.time()})
{
    Sys.time()
}

但是，如果我将一个函数包装g在f：

g <- function(expr2) {
    f(expr2)
}

然后结果变成

>g({Sys.time()})
expr2

我应该怎么做才能使包装的结果保持不变？

谢谢。

Answer 1

您可以使用：

g <- function(...) {
    f(...)
}

## > g({Sys.time()})
## {
##     Sys.time()
## }