# NOT RUN {
primes <- 2:10000 %>%
that_for_all(range(2, .x)) %>%
we_have(~.x %% .y != 0, "Iterator")
sequence <- yield_more(primes, 100)
# use `.iter` to reference the current iteration
rwd <- Iterator({
set.seed(seeds[.iter])
n <- n + sample(c(-1L, 1L), size = 1L, prob = c(0.25, 0.75))
},
initial = list(n = 0, seeds = 1:100),
yield = n)
yield_more(rwd, 100)
# }
Run the code above in your browser using DataLab