下面是几种类型的进度条。这是你要找的吗?
#First Type ===============================
total <- 20
# create progress bar
pb <- txtProgressBar(min = 0, max = total, style = 3)
for(i in 1:total){
Sys.sleep(0.1)
# update progress bar
setTxtProgressBar(pb, i)
}
close(pb)
#Second Type ==============================
total <- 20
# create progress bar
pb <- tkProgressBar(title = "progress bar", min = 0,
max = total, width = 300)
for(i in 1:total){
Sys.sleep(0.1)
setTkProgressBar(pb, i, label=paste( round(i/total*100, 0),
"% done"))
}
close(pb)
#Third Type ==============================
# create progress bar
pb <- winProgressBar(title = "progress bar", min = 0,
max = total, width = 300)
for(i in 1:total){
Sys.sleep(0.1)
setWinProgressBar(pb, i, title=paste( round(i/total*100, 0),
"% done"))
}
close(pb)
#Fourth Type ================================
foo <- function(...){
total <- 40
pb <- txtProgressBar(min = 0, max = total, style = 3)
# computation block 1
for(i in 1:20){
Sys.sleep(0.1)
setTxtProgressBar(pb, i)
}
# computation block 2
for(i in 21:total){
Sys.sleep(0.1)
setTxtProgressBar(pb, i)
}
close(pb)
}
# Run it
foo()