Add a progress bar — bulmaProgress • shinybulma

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