Nothing
# simple test of recycle
test01 <- function() {
if (require(foreach, quietly=TRUE)) {
nr <- 21
nc <- 17
x <- rnorm(nr)
it <- iter(x, recycle=TRUE)
actual <- foreach(y=it, icount(nr*nc), .combine='c') %do% y
dim(actual) <- c(nr, nc)
expected <- matrix(x, nr, nc)
checkEquals(actual, expected)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.