R: Progress bar in a sweet alert

progressSweetAlert {shinyWidgets} | R Documentation

## Progress bar in a sweet alert

### Description

Progress bar in a sweet alert

### Usage

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

### Arguments

`session` | The `session` object passed to function given to shinyServer.
`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.

### Examples

    ## Not run:

    if (interactive()) {

    library("shiny")
    library("shinyWidgets")

    ui <- fluidPage(
      tags$h1("Progress bar in Sweet Alert"),
      useSweetAlert(), # /!\ needed with 'progressSweetAlert'
      actionButton(
        inputId = "go",
        label = "Launch long calculation !"
      )
    )

    server <- function(input, output, session) {

      observeEvent(input$go, {
        progressSweetAlert(
          session = session, id = "myprogress",
          title = "Work in progress",
          display_pct = TRUE, value = 0
        )
        for (i in seq_len(50)) {
          Sys.sleep(0.1)
          updateProgressBar(
            session = session,
            id = "myprogress",
             value = i*2
          )
        }
        closeSweetAlert(session = session)
        sendSweetAlert(
          session = session,
          title =" Calculation completed !",
          type = "success"
        )
      })

    }

    shinyApp(ui = ui, server = server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]