подавлять stachout и 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")
}