foreach抑制stdout和stderr？

Question

foreach是否以某种方式抑制了stdout和stderr？我无法通过以下任一渠道收到任何消息：

require(foreach)
require(doParallel)

cl <- makeCluster(4)
registerDoParallel(cl)

r <- foreach (i = 1:4) %dopar% {
    for (j in 1:2) {
        cat("****\n")
        message("****\n")
        flush.console()
        Sys.sleep(1)
    }
    cat("\n")
}