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