Title:	Loading Screen for 'Shiny'
Version:	0.2.5
Date:	2022-01-02
Description:	Full screen and partial loading screens for 'Shiny' with spinners, progress bars, and notifications.
License:	MIT + file LICENSE
URL:	https://waiter.john-coene.com/, https://github.com/JohnCoene/waiter
BugReports:	https://github.com/JohnCoene/waiter/issues
Encoding:	UTF-8
Imports:	R6, shiny, htmltools
RoxygenNote:	7.1.2
Suggests:	httr, knitr, packer, rmarkdown
VignetteBuilder:	knitr
NeedsCompilation:	no
Packaged:	2022-01-03 13:33:14 UTC; john
Author:	John Coene [aut, cre], Jinhwan Kim [ctb], Victor Granda [ctb]
Maintainer:	John Coene <jcoenep@gmail.com>
Repository:	CRAN
Date/Publication:	2022-01-03 14:30:02 UTC

Create random name

Description

Random name generator to use as unique ids.

Usage

.random_name()

Theme or Value

Description

Returns value or theme.

Usage

.theme_or_value(value, theme_var)

Arguments

Attendant

Description

Manage the attendant loading bar with bootstrap 4.

Active bindings

Methods

Public methods

• Attendant$new()

• Attendant$inc()

• Attendant$dec()

• Attendant$set()

• Attendant$done()

• Attendant$close()

• Attendant$auto()

• Attendant$getMin()

• Attendant$getMax()

• Attendant$getValue()

• Attendant$clone()

Method new()

Usage

Attendant$new(
  id,
  min = NULL,
  max = NULL,
  session = shiny::getDefaultReactiveDomain(),
  hide_on_max = FALSE
)

Arguments

Details

Initialise a progress bar

Method inc()

Usage

Attendant$inc(value = 1, text = NULL)

Arguments

Details

Increase

Method dec()

Usage

Attendant$dec(value = 1, text = NULL)

Arguments

Details

Decrease

Method set()

Usage

Attendant$set(value, text = NULL)

Arguments

Details

Set

Method done()

Usage

Attendant$done(text = NULL)

Arguments

Details

Done with progress

Method close()

Usage

Attendant$close(text = NULL)

Arguments

Details

Done with progress

Method auto()

Usage

Attendant$auto(ms = 400, value = 1)

Arguments

Details

Automatically increase the progress bar until done

Method getMin()

Usage

Attendant$getMin()

Details

Get minimum value

Method getMax()

Usage

Attendant$getMax()

Details

Get maximum value

Method getValue()

Usage

Attendant$getValue()

Details

Get current value

Method clone()

The objects of this class are cloneable with this method.

Usage

Attendant$clone(deep = FALSE)

Arguments

Bootstrap 4 Loading Bar

Description

Create a Bootstrap 4 progress bar.

Usage

attendantBar(
  id,
  value = 0,
  min = 0,
  max = 100,
  text = NULL,
  color = c("primary", "info", "success", "danger", "warning"),
  striped = FALSE,
  animated = FALSE,
  height = 20,
  width = "100%",
  class = "",
  style = "",
  bg_color = "#f5f5f5",
  hidden = FALSE
)

Arguments

Automatic Waiter

Description

This function allows easily adding waiters to dynamically rendered Shiny content where "dynamic" means ⁠render*⁠ and ⁠*output⁠ function pair.

Usage

autoWaiter(id = NULL, html = NULL, color = NULL, image = "", fadeout = FALSE)

Arguments

Details

This will display the waiter when the element is being recalculated and hide it when it receives new data.

Examples

library(shiny)
library(waiter)

ui <- fluidPage(
	autoWaiter(),
	actionButton(
		"trigger",
		"Render"
	),
	plotOutput("plot"),
	plotOutput("dom")
)

server <- function(input, output){
	output$plot <- renderPlot({
		input$trigger
		Sys.sleep(3)
		plot(cars)
	})

	output$dom <- renderPlot({
		input$trigger
		Sys.sleep(5)
		plot(runif(100))
	})
}

if(interactive())
 shinyApp(ui, server)

Spinner Constructor

Description

Construct spinner class.

Usage

construct(spinner, id)

Arguments

Garcon

Description

Create a garcon to animate images on the waiter.

Usage

useGarcon()

use_garcon()

Methods

Public methods

• Garcon$new()

• Garcon$set()

• Garcon$inc()

• Garcon$reset()

• Garcon$destroy()

• Garcon$print()

• Garcon$close()

• Garcon$clone()

Method new()

Usage

Garcon$new(
  image,
  bg_color = "#FFFFFF",
  opacity = 0.5,
  direction = c("bt", "tb", "lr", "rl"),
  filter = NULL
)

Arguments

Details

Initialise the garçon.

Examples

\dontrun{Garcon$new("img")$set(30)}

Method set()

Usage

Garcon$set(value)

Arguments

Details

Value to set the garçon to.

Examples

\dontrun{Garcon$new("img")$set(30)}

Method inc()

Usage

Garcon$inc(value)

Arguments

Details

Value to increase the garçon to.

Examples

\dontrun{Garcon$new("img")$inc(30)}

Method reset()

Usage

Garcon$reset(value)

Arguments

Details

Reset the garçon to.

Examples

\dontrun{Garcon$new("img")$set(30)$reset()}

Method destroy()

Usage

Garcon$destroy()

Details

Kill the garçon to.

Examples

\dontrun{Garcon$new("img")$set(30)$destroy()}

Method print()

Usage

Garcon$print()

Details

print the garcon

Method close()

Usage

Garcon$close()

Details

Close the garçon.

Examples

\dontrun{Garcon$new("img")$set(30)$close()}

Method clone()

The objects of this class are cloneable with this method.

Usage

Garcon$clone(deep = FALSE)

Arguments

Examples

## ------------------------------------------------
## Method `Garcon$new`
## ------------------------------------------------

## Not run: Garcon$new("img")$set(30)

## ------------------------------------------------
## Method `Garcon$set`
## ------------------------------------------------

## Not run: Garcon$new("img")$set(30)

## ------------------------------------------------
## Method `Garcon$inc`
## ------------------------------------------------

## Not run: Garcon$new("img")$inc(30)

## ------------------------------------------------
## Method `Garcon$reset`
## ------------------------------------------------

## Not run: Garcon$new("img")$set(30)$reset()

## ------------------------------------------------
## Method `Garcon$destroy`
## ------------------------------------------------

## Not run: Garcon$new("img")$set(30)$destroy()

## ------------------------------------------------
## Method `Garcon$close`
## ------------------------------------------------

## Not run: Garcon$new("img")$set(30)$close()

Hostess

Description

Add hostess dependencies.

Usage

use_hostess()

useHostess()

Methods

Public methods

• Hostess$new()

• Hostess$start()

• Hostess$print()

• Hostess$set()

• Hostess$inc()

• Hostess$close()

• Hostess$get_loader()

• Hostess$set_loader()

• Hostess$notify()

• Hostess$clone()

Method new()

Usage

Hostess$new(id = NULL, min = 0, max = 100, n = 1, infinite = FALSE)

Arguments

Details

Create a hostess.

Examples

\dontrun{Hostess$new()}

Method start()

Usage

Hostess$start()

Details

Start the hostess

Method print()

Usage

Hostess$print()

Details

Print the hostess

Method set()

Usage

Hostess$set(value)

Arguments

Details

Set the hostess loading bar.

Examples

\dontrun{Hostess$new()$set(20)}

Method inc()

Usage

Hostess$inc(value)

Arguments

Details

Increase the hostess loading bar.

Examples

\dontrun{Hostess$new()$inc(10)}

Method close()

Usage

Hostess$close()

Details

Close the hostess

Examples

\dontrun{Waitress$new("#plot")$close()}

Method get_loader()

Usage

Hostess$get_loader(
  preset = NULL,
  text_color = "#FFFFFF",
  center_page = FALSE,
  class = "",
  min = NULL,
  max = NULL,
  svg = NULL,
  progress_type = c("stroke", "fill"),
  fill_direction = c("btt", "ttb", "ltr", "rtl"),
  stroke_direction = c("normal", "reverse"),
  fill_color = NULL,
  stroke_color = NULL,
  ...
)

Arguments

Details

Create a hostess loading bar.

Examples

\dontrun{Hostess$new()$get_loader()}

Method set_loader()

Usage

Hostess$set_loader(loader)

Arguments

Details

Set a hostess loader as defined by hostess_loader().

Examples

\dontrun{
loader <- hostess_loader()
Hostess$new()$set_loader(loader)
}

Method notify()

Usage

Hostess$notify(
  html = NULL,
  background_color = "transparent",
  text_color = "black",
  position = c("br", "tr", "bl", "tl")
)

Arguments

Details

Use the hostess as a notification. It is hidden when set tpo 100.

Examples

\dontrun{Hostess$new()$notify()}

Method clone()

The objects of this class are cloneable with this method.

Usage

Hostess$clone(deep = FALSE)

Arguments

Examples

## ------------------------------------------------
## Method `Hostess$new`
## ------------------------------------------------

## Not run: Hostess$new()

## ------------------------------------------------
## Method `Hostess$set`
## ------------------------------------------------

## Not run: Hostess$new()$set(20)

## ------------------------------------------------
## Method `Hostess$inc`
## ------------------------------------------------

## Not run: Hostess$new()$inc(10)

## ------------------------------------------------
## Method `Hostess$close`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$close()

## ------------------------------------------------
## Method `Hostess$get_loader`
## ------------------------------------------------

## Not run: Hostess$new()$get_loader()

## ------------------------------------------------
## Method `Hostess$set_loader`
## ------------------------------------------------

## Not run: 
loader <- hostess_loader()
Hostess$new()$set_loader(loader)

## End(Not run)

## ------------------------------------------------
## Method `Hostess$notify`
## ------------------------------------------------

## Not run: Hostess$new()$notify()

Loader

Description

Customise the Hostess laoding bar.

Usage

hostess_loader(
  id = "hostess",
  preset = NULL,
  text_color = "#FFFFFF",
  center_page = FALSE,
  class = "",
  min = 0,
  max = 100,
  svg = NULL,
  progress_type = c("stroke", "fill"),
  fill_direction = c("btt", "ttb", "ltr", "rtl"),
  stroke_direction = c("normal", "reverse"),
  fill_color = NULL,
  stroke_color = NULL,
  ...
)

hostess_gradient(angle = 0, duration = 1, colors = c("red", "white", "blue"))

hostess_bubble(
  color_background = "#697682",
  color_bubble = "#f7fff7",
  count = 25,
  duration = 1
)

hostess_stripe(color1 = "#697682", color2 = "#f7fff7", duration = 1)

Arguments

Presets

• line

• fan

• circle

• bubble

• rainbow

• energy

• stripe

• text

Examples

library(shiny)
library(waiter)

# diagonal line
path <- "M10 10L90 30"

ui <- fluidPage(
 useWaiter(),
 useHostess(),
 actionButton("draw", "redraw"),
 plotOutput("plot")
)

server <- function(input, output) {

 dataset <- reactive({
   input$draw

   hostess <- Hostess$new(min = 0, max = 10)
   hostess$set_loader <- hostess_loader(
     progress_type = "stroke",
     stroke_color = hostess_stripe()
   )
   waiter <- Waiter$new(
     "plot", 
     hostess$loader()
   )

   waiter$show()

   for(i in 1:10){
     Sys.sleep(.2)
     hostess$inc(1)
   }

   runif(100)

 })

output$plot <- renderPlot(plot(dataset()))

}

if(interactive()) shinyApp(ui, server)

Waitress with httr

Description

Use a waitress progress bar with httr requests. Simply use httr_progress where you would use httr::progress.

Usage

httr_progress(object, type = c("down", "up"), pre = NULL, post = NULL)

Arguments

Examples

## Not run: 
cap_speed <- httr::config(max_recv_speed_large = 10000)

httr::GET(
  "http://httpbin.org/bytes/102400", 
  httr_progress(w), 
  cap_speed
)

## End(Not run)

Preview spinner

Description

Allows previewing spinners in web browser or RStudio Viewer.

Usage

preview_spinner(spinner, bg_color = "black")

Arguments

Examples

if(interactive()) preview_spinner(spin_1())

Spinners

Description

Spinkit spinners to use with waiter_show.

Usage

spin_rotating_plane()

spin_fading_circles()

spin_folding_cube()

spin_double_bounce()

spin_wave()

spin_wandering_cubes()

spin_pulse()

spin_chasing_dots()

spin_three_bounce()

spin_circle()

spin_rotate()

spin_solar()

spin_orbit()

spin_squares()

spin_cube_grid()

spin_circles()

spin_orbiter()

spin_pixel()

spin_flower()

spin_dual_ring()

spin_heart()

spin_ellipsis()

spin_facebook()

spin_hourglass()

spin_ring()

spin_ripple()

spin_terminal()

spin_loader()

spin_throbber()

spin_refresh()

spin_heartbeat()

spin_gauge()

spin_3k()

spin_wobblebar()

spin_atebits()

spin_whirly()

spin_flowers()

spin_dots()

spin_3circles()

spin_plus()

spin_pulsar()

spin_hexdots()

spin_inner_circles()

spin_pong()

spin_timer()

spin_ball()

spin_dual_circle()

spin_seven_circle()

spin_clock()

spin_pushing_shapes()

spin_fill()

spin_rhombus()

spin_balance()

spin_square_circle()

spin_circle_square()

spin_puzzle()

spin_half()

spin_loaders(id = 1, color = "white", style = NULL)

spin_1()

spin_2()

spin_3()

spin_4()

spin_5()

spin_6()

bs4_spinner(
  style = c("spin", "grow"),
  color = c("primary", "secondary", "success", "danger", "warning", "info", "light",
    "dark")
)

bs5_spinner(
  style = c("spin", "grow"),
  color = c("primary", "secondary", "success", "danger", "warning", "info", "light",
    "dark")
)

spin_google()

Arguments

Details

Much of the CSS used is to provide those spinners. One can greatly reduce the load on the browser by only sourcing the CSS for the spinners required. You can find out which CSS kits are required to load by using the spinner in the R console as shown in the example. This prints the kit and instructions to only source the required file.

Value

An object of class spinner.

Examples

spin_rotating_plane()

Steward

Description

A colorful steward to work with the waiter.

Usage

useSteward(
  colors = c("#ee7752", "#e73c7e", "#23a6d5", "#23d5ab"),
  speed = 30,
  angle = -45
)

use_steward(
  colors = c("#ee7752", "#e73c7e", "#23a6d5", "#23d5ab"),
  speed = 30,
  angle = -45
)

Arguments

Waitress Themes

Description

Changes waitress themes from R input to js as expected by JS library.

Usage

themes_to_js(x)

Arguments

Transparency

Description

A convenience function to create a waiter with transparent background.

Usage

transparent(alpha = 0)

Arguments

Examples

transparent()

Trigger Waiter

Description

A a trigger to a waiting screen from the UI.

Usage

triggerWaiter(
  el,
  id = NULL,
  html = NULL,
  color = NULL,
  image = "",
  fadeout = FALSE,
  on = "click",
  hide_on_render = !is.null(id),
  hide_on_error = !is.null(id),
  hide_on_silent_error = !is.null(id)
)

Arguments

Examples

library(shiny)
library(waiter)

ui <- fluidPage(
 useWaiter(),
 triggerWaiter(
   actionButton(
     "generate",
     "Generate Plot"
   )
 ),
 plotOutput("plot")
)

server <- function(input, output){
 output$plot <- renderPlot({
   input$generate
   Sys.sleep(3)
   plot(runif(50))
 })
}

if(interactive())
 shinyApp(ui, server)

Attendant Progress Dependencies

Description

Include in anywhere your shiny UI to import the dependencies required to run attendant progress.

Usage

useAttendant()

Waiter

Description

Programatically show and hide loading screens.

Usage

use_waiter(spinners = NULL, include_js = TRUE)

useWaiter(spinners = NULL, include_js = TRUE)

waiter_use(spinners = 1:7, include_js = TRUE)

waiter_show(
  id = NULL,
  html = spin_1(),
  color = "#333e48",
  logo = "",
  image = "",
  hide_on_render = !is.null(id)
)

waiter_show_on_load(html = spin_1(), color = "#333e48", image = "", logo = "")

waiterShowOnLoad(html = spin_1(), color = "#333e48", image = "", logo = "")

waiter_preloader(
  html = spin_1(),
  color = "#333e48",
  image = "",
  fadeout = FALSE,
  logo = ""
)

waiterPreloader(
  html = spin_1(),
  color = "#333e48",
  image = "",
  fadeout = FALSE,
  logo = ""
)

waiter_hide_on_render(id)

waiterHideOnRender(id)

waiter_on_busy(
  html = spin_1(),
  color = "#333e48",
  logo = "",
  image = "",
  fadeout = FALSE
)

waiterOnBusy(
  html = spin_1(),
  color = "#333e48",
  logo = "",
  image = "",
  fadeout = FALSE
)

waiter_hide(id = NULL)

waiter_update(id = NULL, html = NULL)

Arguments

Functions

• use_waiter and waiter_use: waiter dependencies to include anywhere in your UI but ideally at the top.

• waiter_show_on_load: Show a waiter on page load, before the session is even loaded, include in UI after use_waiter.

• waiter_show: Show waiting screen.

• waiter_hide: Hide any waiting screen.

• waiter_on_busy: Automatically shows the waiting screen when the server is busy, and hides it when it goes back to idle.

• waiter_update: Update the content html of the waiting screen.

• waiter_hide_on_render: Hide any waiting screen when the output is drawn, useful for outputs that take a long time to draw, use in ui.

• waiter_preloader: Shows the waiter on load and automatically removes it once all the UI is rendered, only runs on the first load of the app.

Examples

library(shiny)

ui <- fluidPage(
  useWaiter(), # dependencies
  waiterShowOnLoad(spin_fading_circles()), # shows before anything else 
  actionButton("show", "Show loading for 5 seconds")
)

server <- function(input, output, session){
  waiter_hide() # will hide *on_load waiter
  
  observeEvent(input$show, {
    waiter_show(
      html = tagList(
        spin_fading_circles(),
        "Loading ..."
      )
    )
    Sys.sleep(3)
    waiter_hide()
  })
}

if(interactive()) shinyApp(ui, server)

Waiter R6 Class

Description

Create a waiter to then show, hide or update its content.

Details

Create an object to show a waiting screen on either the entire application or just a portion of the app by specifying the id. Then show, then hide or meanwhile update the content of the waiter.

Active bindings

Methods

Public methods

• Waiter$new()

• Waiter$show()

• Waiter$hide()

• Waiter$update()

• Waiter$print()

• Waiter$clone()

Method new()

Usage

Waiter$new(
  id = NULL,
  html = NULL,
  color = NULL,
  logo = NULL,
  image = "",
  fadeout = FALSE,
  hide_on_render = !is.null(id),
  hide_on_error = !is.null(id),
  hide_on_silent_error = !is.null(id)
)

Arguments

Details

Create a waiter.

Examples

\dontrun{Waiter$new()}

Method show()

Usage

Waiter$show()

Details

Show the waiter.

Method hide()

Usage

Waiter$hide()

Details

Hide the waiter.

Method update()

Usage

Waiter$update(html = NULL)

Arguments

Details

Update the waiter's html content.

Method print()

Usage

Waiter$print()

Details

print the waiter

Method clone()

The objects of this class are cloneable with this method.

Usage

Waiter$clone(deep = FALSE)

Arguments

Examples

## ------------------------------------------------
## Method `Waiter$new`
## ------------------------------------------------

## Not run: Waiter$new()

Get Waiter Option

Description

Returns default waiter value for specific option.

Usage

.get_waiter_option(theme_var)

.get_html()

.get_color()

.get_image()

Arguments

Define a Theme

Description

Define a theme to be used by all waiter loading screens. These can be overriden in individual loading screens.

Usage

waiter_set_theme(html = spin_1(), color = "#333e48", logo = "", image = "")

waiter_get_theme()

waiter_unset_theme()

Arguments

Waitress

Description

Programatically show and hide loading bars.

Usage

useWaitress(color = "#697682", percent_color = "#333333")

use_waitress(color = "#697682", percent_color = "#333333")

Arguments

Details

You can pipe the methods with $. Waitress$new() and call_waitress() are equivalent.

Examples

library(shiny)

ui <- fluidPage(
  useWaitress("red"), # dependencies
  sliderInput("set", "percentage", 1, 100, step = 5, value = 1)
)

server <- function(input, output, session){
 
  w <- Waitress$
   new()$  # call a waitress
  	start() # start waitress
	 
  observeEvent(input$set, {
    w$set(input$set) # set at percentage
  })
}

if(interactive()) shinyApp(ui, server)
 

Waitress R6 Class

Description

Create a waitress (progress bar) and programmatically set or increase its percentage, then hide it when done.

Active bindings

Methods

Public methods

• Waitress$new()

• Waitress$start()

• Waitress$notify()

• Waitress$set()

• Waitress$auto()

• Waitress$inc()

• Waitress$close()

• Waitress$getMin()

• Waitress$getMax()

• Waitress$getValue()

• Waitress$print()

• Waitress$clone()

Method new()

Usage

Waitress$new(
  selector = NULL,
  theme = c("line", "overlay", "overlay-radius", "overlay-opacity", "overlay-percent"),
  min = 0,
  max = 100,
  infinite = FALSE,
  hide_on_render = FALSE
)

Arguments

Details

Create a waitress.

Examples

\dontrun{Waitress$new("#plot")}

Method start()

Usage

Waitress$start(
  html = NULL,
  background_color = "transparent",
  text_color = "black"
)

Arguments

Details

Start the waitress.

Examples

\dontrun{Waitress$new("#plot")$start()}

Method notify()

Usage

Waitress$notify(
  html = NULL,
  background_color = "white",
  text_color = "black",
  position = c("br", "tr", "bl", "tl")
)

Arguments

Details

Show the waitress as a notification.

Examples

\dontrun{Waitress$new()$notify()}

Method set()

Usage

Waitress$set(value)

Arguments

Details

Set the waitress to a specific percentage.

Examples

\dontrun{Waitress$new("#plot")$set(20)}

Method auto()

Usage

Waitress$auto(value, ms)

Arguments

Details

Automatically start and end the waitress.

Examples

\dontrun{Waitress$new("#plot")$auto(20, 2000)}

Method inc()

Usage

Waitress$inc(value)

Arguments

Details

Increase the waitress by a percentage.

Examples

\dontrun{Waitress$new("#plot")$inc(30)}

Method close()

Usage

Waitress$close()

Details

Close the waitress.

Examples

\dontrun{Waitress$new("#plot")$close()}

Method getMin()

Usage

Waitress$getMin()

Details

Get minimum value

Method getMax()

Usage

Waitress$getMax()

Details

Get maximum value

Method getValue()

Usage

Waitress$getValue()

Details

Get current value

Method print()

Usage

Waitress$print()

Details

Print the waitress.

Examples

\dontrun{Waitress$new("#plot")$hide()}

Method clone()

The objects of this class are cloneable with this method.

Usage

Waitress$clone(deep = FALSE)

Arguments

Examples

## ------------------------------------------------
## Method `Waitress$new`
## ------------------------------------------------

## Not run: Waitress$new("#plot")

## ------------------------------------------------
## Method `Waitress$start`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$start()

## ------------------------------------------------
## Method `Waitress$notify`
## ------------------------------------------------

## Not run: Waitress$new()$notify()

## ------------------------------------------------
## Method `Waitress$set`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$set(20)

## ------------------------------------------------
## Method `Waitress$auto`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$auto(20, 2000)

## ------------------------------------------------
## Method `Waitress$inc`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$inc(30)

## ------------------------------------------------
## Method `Waitress$close`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$close()

## ------------------------------------------------
## Method `Waitress$print`
## ------------------------------------------------

## Not run: Waitress$new("#plot")$hide()

Report Progress Attendant

Description

Report progress with attendant.

Usage

withProgressAttendant(
  expr,
  ...,
  session = getDefaultReactiveDomain(),
  env = parent.frame(),
  quoted = FALSE
)

setProgressAttendant(
  value = 1,
  text = NULL,
  session = getDefaultReactiveDomain()
)

incProgressAttendant(
  value = 1,
  text = NULL,
  session = getDefaultReactiveDomain()
)

Arguments

Report Progress Waitress

Description

Report progress with waitress.

Usage

withProgressWaitress(
  expr,
  ...,
  session = getDefaultReactiveDomain(),
  env = parent.frame(),
  quoted = FALSE
)

setProgressWaitress(value = 1, session = getDefaultReactiveDomain())

incProgressWaitress(value = 1, session = getDefaultReactiveDomain())

Arguments

With Waiter

Description

Adds a waiter to a rective UI element. Thew waiter is displayed when the element is invalidated then is removed when the element receives a new value.

Usage

withWaiter(element, html = spin_1(), color = "#333e48", image = "")

Arguments