# NOT RUN {
progress_bar(title="Trial",progress_text="progress text")
fraction_progressed=seq(0,1,length.out=50)
progress_bar<-get("progress_bar",envir_stacomi)
for(i in fraction_progressed){
Sys.sleep(0.1)
progress_bar$setText(sprintf("%d%% progression",round(100*i)))
progress_bar$setFraction(i)
}
dispose(progres)
# }
Run the code above in your browser using DataLab