獲取運行時值

Question

我有默認參數的函數剛剛返回它的參數作爲一個列表：

x <- function(a=1, b=2, c=3){formals()} 

和另一個函數，它是一個簡單的包裝圍繞x

y <- function(a, ...) x(a, ...) 

但是，在函數x中，我想獲取參數的運行時值，而不是默認值。這樣，

y(a=3, b=4) 

應該返回

$a 
[1] 3 

$b 
[1] 4 

$c 
[1] 3 

，而不是

$a 
[1] 1 

$b 
[1] 2 

$c 
[1] 3 

這是我現在得到。也許有一個sys。*函數可能會有所幫助，但我對這些經驗並不那麼...有沒有一種簡單的方法來調用函數，如formals（）來獲取調用者指定參數的值？

Answer 1

也許這樣？

x <- function(a=1, b=2, c=3) mget(names(formals())) 
y <- function(a, ...) x(a, ...) 

y(a=3, b=4) 
#$a 
#[1] 3 
# 
#$b 
#[1] 4 
# 
#$c 
#[1] 3