r - match.call with default arguments

Question

As part of a function, I want to output a list of all the arguments and their values, including the default values. For example, a function with these arguments:

foo <- function(x=NULL,y=NULL,z=2) {
  #formals()
  #as.list(match.call())[-1]
  #some other function?....
}

To give output as such:

> foo(x=4)

$x
[1] 4

$y
NULL

$z
[1] 2

formals does not update to give the values argument values when the function is called. match.call does, but does not provide the defaults of the arguments. Is there another function out there that will provide the output as I want?

Answer 1

Hopefully, this doesn't lead to dragons.

foo <- function(x=NULL,y=NULL,z=2) {
  mget(names(formals()),sys.frame(sys.nframe()))

}

foo(x=4)

$x
[1] 4

$y
NULL

$z
[1] 2

print(foo(x=4))

$x
[1] 4

$y
NULL

$z
[1] 2