progress | R Documentation |
Progress bars.
progress(..., id = NULL)
... |
Progress bars as returned by |
id |
Parent id. |
library(shiny) ui <- fluidPage( theme = bslib::bs_theme(version = 5L), actionButton( "rand", "Randomise" ), progress( progressBar(15, id = "bar") ) ) server <- \(input, output, session){ observeEvent(input$rand, { update_progress("bar", sample(10:99, 1)) }) } if(interactive()) shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.