我正在准备一个包,用户必须将函数及其关联的参数存储在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 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
根据哈伦在另一个问题中 https://stackoverflow.com/questions/1567718/getting-a-function-name-as-a-string/1567800#1567800,当存储在另一个 R 对象中时,函数名称会丢失。他建议用函数名称来命名函数列表,例如:
parameters <- list(a1 = list(dnorm = dnorm,
args = list(mean = 150, sd = 100)),
a2 = list(dpois = dpois,
args = list(lambda = 40)))
然而,我想保留相同的名字(fun
)对于我的每一个元素list
.
因此我的问题是
当函数存储在另一个对象中时,有人能想到一种保留函数名称的方法吗?
非常感谢您的帮助!