shinyWidgets (version 0.2.0)

progressBar: Progress Bars

Description

Create a progress bar to provide feedback on calculation.

Usage

progressBar(id, value, total = NULL, display_pct = FALSE, size = NULL,
  status = NULL, striped = FALSE, title = NULL)

Arguments

id

An id used to update the progress bar.

value

Value of the progress bar between 0 and 100, if >100 you must provide total.

total

Used to calculate percentage if value > 100, force an indicator to appear on top right of the progress bar.

display_pct

logical, display percentage on the progress bar.

size

Size, `NULL` by default or a value in 'xxs', 'xs', 'sm', only work with package `shinydashboard`.

status

Color, must be a valid Bootstrap status : primary, info, success, warning, danger.

striped

logical, add a striped effect.

title

character, optional title.

Value

A progress bar that can be added to a UI definition.

Examples

if (interactive()) {
 library("shiny")
 library("shinyWidgets")

 ui <- fluidPage(
   tags$b("Default"), br(),
   progressBar(id = "pb1", value = 50),
   sliderInput(inputId = "up1", label = "Update", min = 0, max = 100, value = 50)
 )

 server <- function(input, output, session) {
   observeEvent(input$up1, {
     updateProgressBar(session = session, id = "pb1", value = input$up1)
   })
 }

 shinyApp(ui = ui, server = server)
 }