r - 循环分配功能

我正在尝试为循环中的每个元素分配一个功能。
我希望函数使用变量的值，但是它们使用变量的最后一个值:

assign.instrumentslist = function()
{
  for(instList in lists.instruments)
  {
  assign(
      paste("test", instList, sep="."),
      function() {print(instList)},
      envir = .GlobalEnv
      )
   }
}

lists.instruments = c("CL", "HO", "GC")
assign.instrumentslist()
test.CL()
# return "GC"

谢谢

最佳答案

可能这是最简单的方法:

assign.instrumentslist = function() {
  for(instList in lists.instruments) {
    local({
      i <- instList
      assign(
             paste("test", instList, sep="."),
             function() {print(i)},
             pos = .GlobalEnv
             )
    })
  }
}

关键是在函数的封闭环境中创建本地对象(i)。
在此示例中，环境由local生成。

这是一个非常糟糕的hack:

lapply(lists.instruments,
  function(x) .GlobalEnv[[paste("test1", x, sep=".")]] <- function() print(x))

关于r - 循环分配功能，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9801208/