相关疑难解决方法(0)

我试图为循环中的每个元素分配一个函数。我希望函数使用变量的值，但它们使用变量的最后一个值：

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"

谢谢