R范围：在没有本地环境的情况下强制函数中的变量替换

我在循环中定义函数，并尝试强制评估循环变量，而不必携带私有环境。

示例：一组函数handlers$h1, handlers$h2, ..., handlers$h6只是将 1, 2, ..., 6 传递给另一个函数，如下所示：

handlers <- list()
for (i in 1:6) {
    handlers[[paste0('h', i)]] <- function () {
        message(i) # <-- example
    }
}

So handlers$h1()应消息1，handlers$h2()应消息 2，...

相反，所有函数都返回6, the current的价值i.

为了解决这个问题，我可以使用闭包作为在这个问题中指定

msg <- function(i) {
    force(i)
    function () { message(i) }
}

for (i in 1:6) {
    handlers[[paste0('h', i)]] <- msg(i)
}

现在每个功能都按预期工作，but每个函数都必须携带自己的环境：

handlers$h1
# function () { message(i) }
# <environment: 0x9342b80>

我怎样才能做到这一点handlers$h1 prints function () { message(1) }，即评估i并将其直接替换到定义中，从而消除对环境的需要？

我能想到的唯一方法是：

• use eval（我不想做的事情）；
• 手工写出每个定义，并直接替换 1-6（在只有 6 个函数的情况下很好，但通常不可扩展）

以下是一些使用的方法body<-

你可以使用bquote

handlers <- list()

for (i in 1:6) {
  handlers[[paste0('h', i)]] <- function () {}
  body( handlers[[paste0('h', i)]]) <- bquote(message(.(i)))
}

handlers$h1
## function () 
##   message(1L)

or substitute

for (i in 1:6) {
  handlers[[paste0('h', i)]] <- function () {}
  body( handlers[[paste0('h', i)]]) <- substitute(message(i), list(i=i))
}