inst/examples/irecycle.R

In iterors: Fast, Compact Iterators and Tools

library(iterors)

# This functions returns an iterator that recycles the values of
# the specified iterator
i_recycle <- function(it) {

  values <- as.list(iteror(it))
  i <- length(values)
  if (i == 0) stop('iterator must have at least one value')

  nextEl <- function() {
    i <<- i + 1
    if (i > length(values))
      i <<- 1
    values[[i]]
  }

  obj <- list(nextElem=nextEl)
  class(obj) <- c('i_recycle', 'abstractiter', 'iter')
  obj
}

it <- i_recycle(icount(3))
for (i in 1:9)
  print(nextElem(it))