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

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()
## }