# 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