如何重置无污染的全局计数器？

Question

我需要一个不污染工作空间的全局计数器。我能够创建一个如下所示，使用另一个SO post。

nex <- local(({ # increment a counter and return the ith entry 
    i <- 0L 
    function(v) { 
    if (i == length(v)) i <<- 0L 
    i <<- i + 1L 
    return(v[i]) 
    } 
})) 

我可以在一个函数中使用nex如下所示，正常工作; i不在工作区中。

magic <- function(num_vec) { 
    tmp <- nex(num_vec) 
    print(tmp) # output is correct 
} 

运行：

jnk <- magic(1:5) # works as expected, i is not in workspace 

现在的问题！ i驻留在它自己的特殊环境中。在我工作的大背景下，我需要能够在某些点将i重置为1。我不知道如何重置它，因为我找不到它藏在哪里。我如何访问i来重置它？

Answer 1

如何：

environment(nex)$i <- 0