| bulmaProgress | R Documentation | 
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)
      )
    })
  }
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.