R语言学习笔记之<进度条>

当遇到处理很大的数据却不知道是否是卡住还是其他情况时，可以使用进度条。

在R中，进度条代码如下：

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)