Add a progress bar.

bulmaProgress(..., value, max = 100, color = NULL, size = NULL)

renderBulmaProgress(expr, env = parent.frame(), quoted = FALSE)

bulmaProgressOutput(outputId)

Arguments

...

any element.

value

value of progress.

max

maximum value.

color

color of progress bar.

size

size of progress bar, default to NULL takes small, meidum or large.

expr

An expression that returns a Shiny tag object, HTML(), or a list of such objects.

env

The environment in which to evaluate expr.

quoted

Is expr a quoted expression (with quote())? This is useful if you want to save an expression in a variable.

outputId

id of element.

Examples

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)
      )
    })
  }
)
}