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) 原文作者：；如有侵权，请联系管理员删除。
请登录后发表评论
登录
全部评论
