Синяя социальная система управления закладками и публикациями.
Log in with your username.
Я забыл свой пароль.
Log in with your OpenID-Provider.
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)