如何在循環運行時在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)有助於瞭解這一點）。您可以規避使用flush.console它清除緩衝區：

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

或Windows您可以在上面選擇工具欄中Misc並取消buffered output。

---

如果你的目標是跟蹤你的循環過程中，上述方法感覺有點akward的（至少我的眼睛），當您通過大量迭代運行。在這種情況下，它可能是更好的使用進度條：

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) 

Answer 2

貓功能可以使有用複雜的語句來跟蹤進度在腳本

for(i in 1:10){ 
    ptm0 <- proc.time() 
    Sys.sleep(0.5) 
    ptm1=proc.time() - ptm0 
    jnk=as.numeric(ptm1[3]) 
    cat('\n','It took ', jnk, "seconds to do iteration", i) 
} 

>It took 0.49 seconds to do iteration 1