使用并行时如何“打印”或“猫”

问：

如果我使用 then 调用一个函数，或者该函数中的语句似乎不会输出到控制台。parSapplyprintmessagecat

我的过程需要很长时间，所以我需要某种方法来查看进度并在完成后获得结果输出。是否有任何特殊命令允许我从并行进程打印到控制台？

例：

library(parallel)

oneloop = function(x) {
  for(i in 1:50) {
    a = rnorm(100000)
    a = sort(a)
  }
  print(x)
  message(x)
  cat(x)
}

cl <- makeCluster(5)
output = parSapply(cl, 1:10, oneloop)
stopCluster(cl)