Pass an expression into a nested function call

Question

I want to wrap a function which takes an expression as its argument.

For example:

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

The result will be

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

However, if I wrap a function g over f:

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

Then the result becomes

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

What should I do to make the wrapped result unchanged?

Thanks.

Same question but this has a better title: stackoverflow.com/questions/17407852/… — Tyler Rinker
– Tyler Rinker, Commented Jul 2, 2013 at 3:06

Tyler Rinker · Accepted Answer · 2013-07-02 03:04:56Z

0

You can use:

g <- function(...) { f(...) } ## > g({Sys.time()}) ## { ## Sys.time() ## }

answered Jul 2, 2013 at 3:04

111k74 gold badges335 silver badges534 bronze badges

Sign up to request clarification or add additional context in comments.

1 Answer 1