withModalSpinner: withModalSpinner

In miraisolutions/SmaRP: SmaRP: Smart Retirement Planning

withModalSpinner

Description

Display a modal window with a spinning wheel and an information message while a (time-consuming) expression is evaluated.

Usage

withModalSpinner(expr, info, spinner = shiny::icon("spinner", "fa-spin"),
  size = "m")

Arguments

expr	The expression to be evaluated.
info	The information message to be displayed.
spinner	The spinning wheel icon.
size	One of "s" for small, "m" (the default) for medium, or "l" for large.

Examples

if (interactive()) {
  library(shiny)
  ui <- fluidPage(
    titlePanel("withModalSpinner"),
    actionButton("trigger_runif", "Trigger...", icon("cog")),
    actionButton("trigger_expr", "Trigger...", icon("cog"))
  )

  slow_runif <- function(time) c(Sys.sleep(time), runif(1))
  server <- function(input, output) {
    observeEvent(input$trigger_runif, {
      withModalSpinner(
        message(slow_runif(2)),
        "Waiting for a slow runif...",
        size = "s"
      )
    })
    observeEvent(input$trigger_expr, {
      withModalSpinner(
        {
          Sys.sleep(1)
          for (i in 1:10) {
            message(i)
            Sys.sleep(0.1)
          }
        },
        "Waiting for a slow expression..."
      )

    })
  }
  # Run the application
  runApp(shinyApp(ui = ui, server = server), launch.browser = TRUE)
}

miraisolutions/SmaRP documentation built on March 23, 2022, 6:46 a.m.