Add a progress bar.
bulmaProgress(..., value, max = 100, color = NULL, size = NULL) renderBulmaProgress(expr, env = parent.frame(), quoted = FALSE) bulmaProgressOutput(outputId)
... | any element. |
---|---|
value | value of progress. |
max | maximum value. |
color | color of progress bar. |
size | size of progress bar, default to |
expr | An expression that returns a Shiny tag object, |
env | The environment in which to evaluate |
quoted | Is |
outputId | id of element. |
if(interactive()){ library(shiny) shinyApp( ui = bulmaPage( bulmaTitle("Hello Bulma"), bulmaProgress("15%", value = 15, max = 100), bulmaProgress("25%", value = 25, max = 100, color = "primary"), bulmaProgress("65%", value = 65, max = 100, color = "danger", size = "medium"), bulmaProgressOutput("progress") ), server = function(input, output) { output$progress <- renderBulmaProgress({ bulmaProgress( value = sample(1:100, 1) ) }) } ) }