如何將參數（名稱）傳遞給函數工廠？

Question

我需要用很多不同的參數來構建很多函數，儘管它們共享很多代碼和結構。爲了避免重複，我認爲我會很聰明，並建立自己的功能工廠（aka closure）。

我無法弄清楚如何通過功能工廠內部函數的參數。

我的用例是一堆S3構造函數，它們都共享相同的驗證機制。 所以我將以此爲例來解釋我的問題。

說，我有一個ClassA和ClassB，每一個都需要在各自的構造函數自己的論點：

ClassA <- function(A_arg1, A_arg2) { 
    # some class-SPECIFIC construction magic happens, say 
    out <- list(A_arg1, A_arg2) 

    # some GENERAL construction magic happens 
    class(out) <- "ClassA" 

    return(out) 
} 

ClassB <- function(B_arg1, B_arg2) { 
    # some class-SPECIFIC construction magic happens, say 
    out <- B_arg1 + B_arg2 

    # some GENERAL construction magic happens 
    class(out) <- "ClassB" 

    return(out) 
} 

很顯然，我很想避免的一般部分重複這可以像這樣使用的構造函數，因此函數工廠將是不錯：

ClassA <- produce_class_constructor(classname = "ClassA", fun = function(A_arg1, A_arg2) {return(list(A_arg1, A_arg2))}) 

這個建議立即進行刪除d，理想情況下，產生與上述手動構建的功能完全相同的功能，其中一般部分被分解。

這是我在構建功能工廠嘗試：

produce_class_constructor <- function(classname, fun) { 
    class_specific_arguments <- formals(fun = fun) # this works just fine on the console 
    construct_class <- function(class_specific_arguments) { 
    # here runs the class-specific stuff 
    out <- fun(class_specific_arguments) 

    # here runs the general stuff 
    class(out) <- classname 
    } 
} 

然而，這是不行的，因爲由此產生的構造函數只有一個class_specific_arguments -argument，不，好，實際A_arg1和A_arg2。

有沒有辦法做到這一點？ 我做錯了嗎？

（這對我來說非常重要，因爲生成的類構造函數具有正確命名的參數，所以...方法將不起作用）。

Answer 1

這裏是我的嘗試：

produce_class_constructor <- function(classname, fun) { 
    out_fun <- function() { 
    out_obj <- do.call(fun, as.list(environment())) 
    class(out_obj) <- classname 
    out_obj 
    } 
    formals(out_fun) <- formals(fun) 
    out_fun 
} 

ClassA <- produce_class_constructor(classname = "ClassA", 
    fun = function(A_arg1, A_arg2) {list(A_arg1, A_arg2)}) 
ClassA(1, 2) 
#[[1]] 
#[1] 1 
# 
#[[2]] 
#[1] 2 
# 
#attr(,"class") 
#[1] "ClassA" 

ClassB <- produce_class_constructor(classname = "ClassB", 
    fun = function(B_arg1, B_arg2) {B_arg1 + B_arg2}) 
ClassB(B_arg2 = 2, 1) 
#[1] 3 
#attr(,"class") 
#[1] "ClassB" 

理念與as.list(environment())從this question拍攝。請注意，您應該特別注意沿着該路徑，因爲?formals說，「這是 先進的危險編碼」。