## Create a striped, green progress bar.
## In ui.R
bsProgressBar("pb1", visible=FALSE, color="success", striped=TRUE)
## Update previous progress bar 'pb1' to be 25% filled and animated,
## In server.R
updateProgressBar("pb1", value=25, animate=TRUE)
Run the code above in your browser using DataLab