inst/examples/ilimit.R

In iterors: Fast, Compact Iterators and Tools

library(iterors)

i_limit <- function(it, times) {
  it <- iteror(it)

  nextOr_ <- function(or) {
    if (times > 0)
      times <<- times - 1
    else
      or

    nextElem(it)
  }

  iteror_internal(nextOr_)
}

it <- i_limit(icount(Inf), 3)
print(nextOr(it, "done"))
print(nextOr(it, "done"))
print(nextOr(it, "done"))
print(nextOr(it, "done"))