Description Usage Arguments Value Examples
Wired Progress bar
1 2 3 4 5 | wired_progress(id, value, min = 0, max = 100, percentage = TRUE,
width = "100%")
update_wired_progress(id, value,
session = shiny::getDefaultReactiveDomain())
|
id |
Id for the progress bar. |
value |
Numeric value of the progress. |
min |
Minimum value. Default is 0. |
max |
Maximum value. Default is 100. |
percentage |
Boolean indicating if the label should show a % symbol. |
width |
Width of the progress bar. |
session |
Shiny session. |
an HTML tag
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | wired_progress("ID", value = 50)
wired_progress("ID", value = 150, max = 200, percentage = FALSE)
if (interactive()) {
library(shiny)
library(wired)
ui <- fluidPage(
tags$h2("Wired progress bar"),
wired_progress("progress", value = 10),
numericInput("update", "Enter new value:", 0)
)
server <- function(input, output, session) {
observe({
update_wired_progress("progress", input$update)
})
}
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.