看到《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)
运行之后就能看到程序运行的进度。
网友评论