多核打印日志

Question

使用foreach和doMC，有没有办法在并行运行时将cat和/或message打印到屏幕上？例如：

> library(foreach) 
> 
> tmp <- foreach(i=1:3) %do% 
+ cat("sqrt(i) =", sqrt(i), "\n") 
sqrt(i) = 1 
sqrt(i) = 1.414214 
sqrt(i) = 1.732051 

> 
> tmp <- foreach(i=1:3) %do% 
+ message("i^2 =", i^2, "\n") 
i^2 =1 

i^2 =4 

i^2 =9 

>  
> library(doMC) 
> registerDoMC(2) 
> 
> tmp <- foreach(i=1:3) %dopar% 
+ cat("sqrt(i) =", sqrt(i), "\n") 
> 
> tmp <- foreach(i=1:3) %dopar% 
+ message("i^2 =", i^2, "\n") 
> 
> sessionInfo() 
R Under development (unstable) (2014-01-29 r64898) 
Platform: x86_64-apple-darwin10.8.0 (64-bit) 

locale: 
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8 

attached base packages: 
[1] parallel stats  graphics grDevices utils  datasets 
[7] methods base  

other attached packages: 
[1] doMC_1.3.2  iterators_1.0.6 foreach_1.4.1 

loaded via a namespace (and not attached): 
[1] codetools_0.2-8 compiler_3.1.0 tools_3.1.0  

感谢，

最大

Answer 1

默认情况下，从工人使用标准输出的foreach与DOMC后端时，应显示输出不重定向，所以，除非你使用一个GUI，如Mac OS X上的R.app或Windows上的Rgui。我只是在我的Mac上试过了一个快速测试，看起来RStudio也抛弃了doMC/mclapply创建的工作者的stdout。

从终端执行R时，使用R 3.0.2和“R开发中（不稳定）（2014-02-13 r64986）”，我看到在Mac OS X 10.7.5上的工作人员输出。由于您使用的是稍微老一点的开发版本，因此有可能出现了后来修复的问题。

您可以尝试明确与具体DOMC，“无声”选项打开输出：

> opts <- list(silent=FALSE) 
> tmp <- foreach(i=1:3, .options.multicore=opts) %dopar% message('i^2 = ', i^2) 
i^2 = 1 
i^2 = 4 
i^2 = 9 

这将导致mclapply与mc.silent=FALSE被调用。如果这没有帮助，我建议尝试最适合我的开发版本。