将函数存储在R列表中

Question

我正在尝试构建一个闪亮的应用程序来帮助进行决策分析。在应用程序的一部分中，用户需要以文本的形式输入他们的实用程序函数，R/shine会将其转换为表达式。假设用户的效用函数有三个部分，它们将被组合成一个更大的效用函数。我遇到的问题是在for循环中定义列表元素：

utility.fns <- list()
ufs <- list() ## user input
## each ufs is specified by the user
ufs[[1]] <- "x+1"
ufs[[2]] <- "sin(x)"
ufs[[3]] <- "cos(x)^2"

for(i in 1:3){
## turn the text into functions
utility.fns[[i]] <- function(x){
eval( parse(text = ufs[[i]]) )
}
}

utility.fns[[1]](1) ## returns cos(1)^2 ?

奇怪的是，不管索引是什么，列表utility.fns总是返回utility.fns[[3]]。但是，手动覆盖

> utility.fns[[1]] <- function(x){
+   eval( parse(text = ufs[[1]]) )
+ }
> utility.fns[[1]](1)
[1] 2

修复了该问题。显然，我不能每次都手动覆盖！

Answer 1

使用lapply而不是for

utility.fns <- lapply(1:3, function(i){function(x){eval(parse(text = ufs[[i]]) )}})

Answer 2

它总是返回utility.fns[[3]]的原因是，如果您检查utility.fns

utility.fns[[1]]
#function(x){
#    eval( parse(text = ufs[[i]]) )
#}
#<bytecode: 0x1223d31c8>

for循环中的i在3处结束，因此它始终调用ufs[[3]]。

您可以保留ufs本身中的函数，将值分配给x，然后使用eval、parse

x <- 1
eval(parse(text = ufs[[1]]))
#[1] 2
eval(parse(text = ufs[[2]]))
#[1] 0.841
eval(parse(text = ufs[[3]]))
#[1] 0.292