将函数存储在R列表中

Question

我正在尝试构建一个闪亮的应用程序来帮助进行决策分析。在应用程序的一部分，用户需要以文本的形式输入他们的实用函数，R/shiny会将其转换为表达式。假设用户的效用函数有三个部分，它们将被组合成一个更大的效用函数。我遇到的问题是在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

它总是返回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

Answer 2

使用lapply而不是for

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