/usr/lib/R/site-library/foreach/unitTests/nestedTest.R is in r-cran-foreach 1.4.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | # Test nesting of "%do% and %dopar% in 01, 02, 03, and 04.
test01 <- function() {
y <- foreach(j=seq(0,90,by=10), .combine='c', .packages='foreach') %do% {
foreach(k=seq(1,10), .combine='c') %do% {
(j+k)
}
}
checkEquals(y,1:100)
}
test02 <- function() {
y <- foreach(j=seq(0,90,by=10), .combine='c', .packages='foreach') %do% {
foreach(k=seq(1,10), .combine='c') %dopar% {
(j+k)
}
}
checkEquals(y,1:100)
}
test03 <- function() {
y <- foreach(j=seq(0,90,by=10), .combine='c', .packages='foreach') %dopar% {
foreach(k=seq(1,10), .combine='c') %do% {
(j+k)
}
}
checkEquals(y,1:100)
}
test04 <- function() {
y <- foreach(j=seq(0,90,by=10), .combine='c', .packages='foreach') %dopar% {
foreach(k=seq(1,10), .combine='c') %dopar% {
(j+k)
}
}
checkEquals(y,1:100)
}
# test05 <- function() {
# s <- getSleigh()
# y <- eachWorker(s, eo=list(closure=TRUE),
# function() {
# library('foreach')
# foreach(j=seq(0,90,by=10), .combine='c') %do% {
# foreach(k=seq(1,10), .combine='c') %do% {
# (j+k)
# }
# }
# })
# wc <- workerCount(s)
# checkEquals(length(y), wc)
# foreach(i=1:wc) %do% checkEquals(y[[i]],1:100)
# }
# test06 <- function() {
# s <- getSleigh()
# y <- eachWorker(s, eo=list(closure=TRUE),
# function() {
# library('foreach')
# foreach(j=seq(0,90,by=10), .combine='c') %do% {
# foreach(k=seq(1,10), .combine='c') %dopar% {
# (j+k)
# }
# }
# })
# wc <- workerCount(s)
# checkEquals(length(y), wc)
# foreach(i=1:wc) %do% checkEquals(y[[i]],1:100)
# }
# test07 <- function() {
# s <- getSleigh()
# y <- eachWorker(s, eo=list(closure=TRUE),
# function() {
# library('foreach')
# foreach(j=seq(0,90,by=10), .combine='c', .packages='foreach') %dopar% {
# foreach(k=seq(1,10), .combine='c') %do% {
# (j+k)
# }
# }
# })
# wc <- workerCount(s)
# checkEquals(length(y), wc)
# foreach(i=1:wc) %do% checkEquals(y[[i]],1:100)
# }
|