【備忘】関数の引数をそのまま関数内で呼び出す他の関数に引き渡したい時の方法

意外とわからなかったのでメモ

結論としては、match.call& do.callのコンボを使う。

rnorm_wrap <- function(...){
 arg_list <-  as.list( match.call( expand.dots=T))
  arg_list[[1]] <- NULL
 do.call(rnorm, args = arg_list) 
} 

rnorm_wrap( n = 5 , mean= 3 , sd = 5)
#[1] -9.8636153 10.5569812 -0.9009122  1.9064898 -0.1459133