R/iterator_with_state.R

In abeeisnotabug/loggr: Log Simulations on Multi-Core Machines

iterator_with_state <- bubu <- function() {
  i <- 0L

  nextEl <- function() (i <<- i + 1L)

  currentEl <- function() i

  list(
    nextElem = nextEl,
    currentElem = currentEl
  )
}