使用％dopar％时如何打印

Question

我有一个与作为后端foreach使用的循环。如何让循环在每次迭代中打印出一些内容？%dopar%doSNOW我下面的代码是我当前正在使用的代码，但未打印任何内容。foreach(ntree=rep(25,2),.combine=combine,.packages='randomForest',    .inorder=FALSE) %dopar% {        print("RANDOM FOREST")        randomForest(classForm,data=data,na.action=na.action,do.trace=do.trace,ntree=ntree,mtry=mtry)    }   

Answer 1

这里发布了许多好的解决方案，但是我发现最简单的方法是登录到套接字并使用单独的过程在控制台中输出日志调用。

我使用以下功能：

log.socket <- make.socket(port=4000)

Log <- function(text, ...) {

  msg <- sprintf(paste0(as.character(Sys.time()), ": ", text, "\n"), ...)

  cat(msg)

  write.socket(log.socket, msg)

}

然后，您可以将日志语句放入代码中，例如：

Log("Processing block %d of %d", i, n.blocks)

可以使用任何简单的套接字侦听工具实时查看日志输出。例如，在Linux上使用netcat：

nc -l 4000

上面的日志语句将在netcat终端中显示为：

2014-06-25 12:30:45: Processing block 2 of 13

该方法的优点是可以远程工作，并在您需要记录时提供详细的输出。

ps对于Windows上的用户，请参阅Jon Craton的netcat端口。

pps我猜write.socketR函数可能不是线程安全的，但是除非您以高频率登录，否则您不太可能遇到任何问题。有一些需要注意的地方。