存儲在對象中時保留函數名稱

Question

我正在準備一個包，其中用戶必須將函數及其關聯參數存儲在list中供以後使用。這是它如何工作的典型的例子：

製備含有功能名稱和參數

parameters <- list(a1 = list(fun = dnorm, 
          args = list(mean = 150, sd = 100)), 
        a2 = list(fun = dpois, 
          args = list(lambda = 40))) 

這裏列表的是如何這個參數對象在其他功能中使用的一個示例：

x <- 1:100 
myfunction <- function(x, var, parameters) 
{ 
    results <- list(var = var, 
        y = do.call(parameters[[var]]$fun, 
           c(list(x), parameters[[var]]$args)), 
        parameters = parameters) 
    class(results) <- "customclass" 
    return(results) 
} 
myfunction(x, "a1", parameters) 

現在假設我想在myfunction的輸出中打印存儲在parameters中的函數的名稱。

print.customclass <- function(X) 
{ 
    cat("Function name:", X$parameters[[X$var]]$fun) 
} 

此自定義打印將無法正常工作：

> myfunction(x, "a1", parameters) 
Error in cat(list(...), file, sep, fill, labels, append) : 
argument 2 (type 'closure') cannot be handled by 'cat' 

我也試圖在其他地方發現了其他建議的解決方案，如：

print.customclass <- function(X) 
{ 
    cat("Function name:", deparse(quote(X$parameters[[X$var]]$fun))) 
} 

> myfunction(x, "a1", parameters) 
Function name: X$parameters[[X$var]]$fun 

據Harlan in this other question，該函數的名稱當存儲在另一個R對象中時會丟失。他建議命名的功能與功能名稱列表，例如：

parameters <- list(a1 = list(dnorm = dnorm, 
          args = list(mean = 150, sd = 100)), 
        a2 = list(dpois = dpois, 
          args = list(lambda = 40))) 

不過，我想保持相同的名稱（fun）我list的每一個元素。因此

我的問題是

任何人可以想辦法讓函數名，當函數存儲在另一個對象？

非常感謝您的幫助！

Answer 1

你可以使用alist S：

parameters <- list(a1 = alist(fun = dnorm, 
          args = list(mean = 150, sd = 100)), 
        a2 = alist(fun = dpois, 
          args = list(lambda = 40))) 
#probably better to write a constructor method for parameters objects 


x <- 1:100 
myfunction <- function(x, var, parameters) 
{ f <- function(x) do.call(fun, c(list(x), args)) 
    formals(f) <- c(formals(f), parameters[[var]]) 
    results <- list(var = var, 
        y = f(x), 
        parameters = parameters) 
    class(results) <- "customclass" 
    return(results) 
} 

print.customclass <- function(X) 
{ 
    cat("Function name:", X$parameters[[X$var]]$fun) 
} 

myfunction(x, "a1", parameters) 
#Function name: dnorm 

Answer 2

我建議用函數名定義parameters的說法，而不是本身的功能，並通過match.fun檢索的myfunction體內的功能：

parameters <- list(a1 = list(fun = "dnorm", 
         args = list(mean = 150, sd = 100)), 
       a2 = list(fun = "dpois", 
         args = list(lambda = 40))) 

    myfunction <- function(x, var, parameters) 
    { 
     results <- list(var = var, 
       y = do.call(match.fun(parameters[[var]]$fun), 
          c(list(x), parameters[[var]]$args)), 
       parameters = parameters) 
     class(results) <- "customclass" 
     return(results) 
    }