小编Bor*_*roy的帖子

我正在准备一个包，用户必须将函数及其关联的参数存储在 a 中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)

parameters现在假设我想打印存储在的输出中的函数的名称myfunction。

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

此自定义打印将不起作用：

> myfunction(x, "a1", parameters)
Error …