inst/examples/extra_elements/vertical_progress.R

In dsciencelabs/shinydashboardPlus: Add More 'AdminLTE2' Components to 'shinydashboard'

vertical_progress <- 'box(
  title = "verticalProgress",
  width = NULL,
  verticalProgress(
    value = 10,
    striped = TRUE,
    active = TRUE
  ),
  verticalProgress(
    value = 50,
    active = TRUE,
    status = "warning",
    size = "xs"
  ),
  verticalProgress(
    value = 20,
    status = "danger",
    size = "sm",
    height = "60%"
  )
)'