非汚染グローバルカウンタをリセットするにはどうすればいいですか？

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