R语言显示函数运行进度

看到《R语言之书：编程与统计》里面一个比较有意思的小程序：

prog.test = function(n){
  results = 0
  probar = txtProgressBar(min = 0, max = n, style = 1, char = '+')
  for (i in 1:n) {
    results = results+1
    Sys.sleep(0)
    setTxtProgressBar(probar,value = i)
  }
  close(probar)
  return(results)
}

prog.test(100000000)

运行之后就能看到程序运行的进度。