R関数呼び出しでどのような引数値が使用されているかを調べる方法はありますか？

Question

特定の関数呼び出しで使用されている引数の値を抽出するためのBase R関数があるのでしょうか？オブジェクトx、y以下zのそれぞれについて例えば

、引数名を抽出する一般的な方法がある（例えば、n、sd、rate、scale）使用中および値（例えば、1e4用n）は、ユーザーまたはシステムによってこれらの引数のそれぞれに割り当てられますか？

注：特定の「R」機能では、は抽出が容易です。例えば、density()では、を引数density()$callで簡単に抽出できます。

x = rnorm(n = 1e4, mean = 2, sd = 4) 
y = rlogis(1e4, 20) 
z = rexp(1e4, 5) 

Answer 1

これは実際には簡単ではありません。 （

f <- function(x, y = 1, ...){ 
    cl <- match.call() 
    as.list(cl[-1]) 
} 

str(f(1)) 
#> List of 1 
#> $ x: num 1 

str(f(1, 'foo')) 
#> List of 2 
#> $ x: num 1 
#> $ y: chr "foo" 

str(f(1, 'foo', list(3), fun = sum)) 
#> List of 4 
#> $ x : num 1 
#> $ y : chr "foo" 
#> $ : language list(3) 
#> $ fun: symbol sum 

注match.callだけ呼び出しをキャプチャし、デフォルトのパラメータに追加しません：あなたは機能を構築している場合は、それほど苦労せずに解析することができるmatch.callとの通話を、キャプチャすることができます最初の例ではyはありません）。これらはfが原始的ではないので、formals(f)にアクセスすることができますので、完全な引数は

user_args <- f(1) 
fun_args <- formals(f) 
fun_args[names(user_args)] <- user_args 

str(fun_args) 
#> List of 3 
#> $ x : num 1 
#> $ y : num 1 
#> $ ...: symbol 

完成ドットではうまく機能しません。このアプローチを使用して作成することができ、彼らは十分なはずmatch.callにそして自分自身を完了している場合。既存の関数に渡されたパラメータを抽出するには、match.callというラッパーを書くことができますが、すべての関数を再構築するのは実用的ではなく、既存の関数を上書きしない限り、キャプチャした呼び出しは面白く見えます。限り機能が原始的ではないとして、あなたはformalsアプローチを可能にするためにquoteを使用することができ、しかし：

cl <- quote(rnorm(5, 2)) 
user_args <- as.list(cl[-1]) # subset call to only args 
fun_args <- formals(as.character(cl[1])) # subset call to only function 
names(user_args) <- names(fun_args)[seq(length(user_args))] 
fun_args[names(user_args)] <- user_args 

str(fun_args) 
#> List of 3 
#> $ n : num 5 
#> $ mean: num 2 
#> $ sd : num 1 

別のアプローチは、rlangを使用することですその機能だけでなくプリミティブを扱う（fn_fmls(sum)）、部品を抽出することができます（lang_fn、lang_args）、名前のない名前のパラメータを正確に（lang_standardize）など、一緒にpurrrの新しいlist_modify（DEV版）で、それはすべてがかなり無痛次のようになります。

library(rlang) 

fun_call <- quo(rnorm(5)) 
fun_call 
#> <quosure: frame> 
#> ~rnorm(5) 

default_args <- fn_fmls(lang_fn(fun_call)) 
str(default_args) 
#> Dotted pair list of 3 
#> $ n : symbol 
#> $ mean: num 0 
#> $ sd : num 1 

user_args <- lang_args(lang_standardise(fun_call)) 
str(user_args) 
#> List of 1 
#> $ n: num 5 

calling_args <- purrr::list_modify(default_args, user_args) 
str(calling_args) 
#> Dotted pair list of 3 
#> $ n : num 5 
#> $ mean: num 0 
#> $ sd : num 1