Truy cập tất cả các đối số hàm trong R

Question

Tôi có hàm f() có một số tham số được đặt tên. Nó gọi hàm g() và tôi muốn chuyển tất cả các tham số của f cho nó. Điều này có thể không?

dùng ... chỉ bao gồm các đối số thêm:

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); 

Tôi nghĩ formals() là câu trả lời, nhưng nó chỉ có vẻ là tên đối số, không phải giá trị của họ!

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); 

Có thể không? Cảm ơn.

Answer 1

Vâng, một cái gì đó như thế này chắc chắn là có thể. Bạn chỉ nên hình dung của chúng ta cho chính mình trong đó khung/điểm bạn muốn đánh giá các đối số của f mà sau đó được chuyển tiếp đến g. Thủ tục điển hình bao gồm match.call() gọi bên trong f để thực sự ghi lại biểu thức cuộc gọi mà f được gọi với, sau đó thay đổi biểu thức cuộc gọi vì nó sẽ thuận tiện cho bạn (vd lọc ra các arg không cần thiết, thêm mới , vv) và sau đó đánh giá biểu thức cuộc gọi mới thông qua cuộc gọi eval(). Vì vậy, một cái gì đó như thế này nên (hầu như) làm việc:

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()) 
}