1context("Object export bug test") 2 3test_that("do and dopar work", { 4 mB <- c(1, 2, 1, 3, 4, 10) 5 MO <- c("Full", "noYS", "noYZ", "noYSZS", "noS", "noZ", 6 "noY", "justS", "justZ", "noSZ", "noYSZ") 7 8 testouts <- foreach(i = seq_along(mB)) %do% { 9 MO[mB[i]] 10 } 11 testouts2 <- foreach(i = seq_along(mB)) %dopar% { 12 MO[mB[i]] 13 } 14 expect_identical(testouts, testouts2) 15})