すべての関数引数にアクセスするR

Question

名前付きのパラメータを持つ関数f（）があります。それは関数g（）を呼び出し、すべてのfのパラメータを渡したいと思います。これは可能ですか？それらの値を

f=function(a,callback,b,c,d,...){ 
    z=a-b 
    callback(z,...) 
    } 

g=function(z,...){ 
    print(list(...)) #Only shows $e 
    print(z) #-1 
    print(a,b,c,d) #'a' not found 
} 

f(1,g,2,3,d=4,e=5); 

は、私は（）ホルマールを考えた答えだったが、単に引数名のようです、ではない：

使用して...ちょうど余分な引数をカバー！

f=function(a,callback,b,c,d,...){ 
    z=a-b 
    callback(z,formals()) 
    } 

g=function(z,...){ 
    args=list(...)[[1]] 
    print(args$a) #(no output) 
    print(class(args$a)) #"name" 
} 

f(1,g,2,3,d=4,e=5); 

可能ですか？ありがとう。

Answer 1

これは確かに可能です。どのフレーム/ポイントであなたがfの引数を評価したいのかを把握して、gに転送します。

典型的な手順は、fで呼び出された呼び出し式を実際に記録するためにmatch.call（）を呼び出すことです。呼び出し式を都合のよいように変更します（たとえば不要な引数を取り除き、等）を呼び出し、eval（）呼び出しを介して新しい呼び出し式を評価します。だから、このはず（ほぼ）仕事のようなもの：

f <- function(a, callback, b, c, d, ...) { 
    # Grab the "f" call expression 
    fcall <- match.call(expand.dots = FALSE) 

    # Construct the new call expression 
    fcall[[1]] <- callback 
    # Filter out/add new args 
    fcall$callback <- NULL 
    fcall$z <- z 

    # Do the call 
    eval(fcall, parent.frame()) 
}