R語言學習筆記：使用tcltk包顯示進度條

　　一般在跑耗時較長的程序時，我們不知道程序到底有沒有正常跑着，或者在爬蟲的時候不知道爬到什么時候斷了。因此可以添加進度條來顯示當前進度，觀察進度是否有進展。當進度條卡住的時候，可以判斷程序斷線，從而可以進行斷點重跑。

　　在R語言中使用 library(tcltk) 加載 tcltk 包可以實現進度條展示。

# 進度條
library(tcltk) u <- 1:2000

# 開啟進度條
pb <- tkProgressBar("進度","已完成 %", 0, 100) for(i in u){ info <- sprintf("已完成 %d%%",round(i*100/length(u))) setTkProgressBar(pb, i*100/length(u), sprintf("進度 (%s)", info), info) } # 關閉進度條
close(pb)

　　效果如下圖：

---

END 2019-02-19 09:05:55