R 语言 | 文字进度条

Rstudio 载入的utils包自带文字进度条功能。
一共三步，声明，在循环内使用，关闭。

library(utils)
max.block=100

# step1
pb <- txtProgressBar(min = 0, max = max.block, style = 3, file = stderr())

# step2
for (i in 1:max.block) {
  Sys.sleep(0.01+runif(1)/10)
  setTxtProgressBar(pb = pb, value = i)
}

# step3
close(con = pb)

效果图：

一般放到函数中，并加入 verbose=T 参数。
这三步都分别用 if(verbose){} 包裹。

---

2. 开始废话。后面的内容请忽略。

文章质量不佳，原因可能为篇幅过短、包含营销性质的广告和二维码或外链过多，建议设置仅我可见，若设置全部可见，推荐可能受影响。

文章质量不佳，原因可能为篇幅过短、包含营销性质的广告和二维码或外链过多，建议设置仅我可见，若设置全部可见，推荐可能受影响。
文章质量不佳，原因可能为篇幅过短、包含营销性质的广告和二维码或外链过多，建议设置仅我可见，若设置全部可见，推荐可能受影响。

文章质量不佳，原因可能为篇幅过短、包含营销性质的广告和二维码或外链过多，建议设置仅我可见，若设置全部可见，推荐可能受影响。