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.