r - 如何在循环运行时将for循环内的变量实时打印到控制台？

Question

我有一个循环，每次迭代都需要很长时间，我想实时查看它的进度。当循环正在运行时，如何将 for 循环内的变量实时打印到控制台？这些中的每一个都在循环完成后打印所有内容，这对我来说没用:

for(i in 1:10){
  write(i,stdout())
}

for(i in 1:10){
  write(i,stderr())
}

for(i in 1:10){
  print(i)
}
1
2
3
4
5
6
7
8
9
10

Answer 1

最后一个是实时打印的，试试这样:

for(i in 1:10){
  Sys.sleep(0.1)
  print(i)
}

这在 Rstudio 中看起来不错，但在经典 Rgui 中，您必须单击控制台才能刷新(例如通过 Sys.sleep(0.5) 增加 sleep 有助于看到这一点)。您可以使用 flush.console 来规避这种情况。清除缓冲区:

for(i in 1:10){
  Sys.sleep(0.1)
  print(i)
  flush.console() 
}

或者在 Windows 中，您可以选择 Misc在上方工具栏中，取消选中 buffered output .

如果您的目标是跟踪循环的过程，那么当您运行大量迭代时，上述方法会感觉有点尴尬(至少在我看来)。在这种情况下，使用进度条可能会更好:

n<- 1000
pb <- txtProgressBar(min = 0, max = n, style = 3) #text based bar
for(i in 1:n){
   Sys.sleep(0.001) 
   setTxtProgressBar(pb, i)
}
close(pb)

或者更好的东西:

library(tcltk)
n<- 1000
pb <- tkProgressBar(title = "Doing something", min = 0, max = n, width = 200)
for(i in 1:n){
   Sys.sleep(0.001) 
   setTkProgressBar(pb, i, label=paste(round(i/n*100,1),"% done"))
}
close(pb)