Description Usage Arguments Functions Examples
Programatically show and hide loading screens.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | use_waiter(spinners = 1:7, include_js = TRUE)
waiter_use(spinners = 1:7, include_js = TRUE)
waiter_show(
id = NULL,
html = spin_1(),
color = "#333e48",
logo = "",
hide_on_render = !is.null(id)
)
waiter_show_on_load(html = spin_1(), color = "#333e48", logo = "")
waiter_hide_on_render(id)
waiter_on_busy(html = spin_1(), color = "#333e48", logo = "")
waiter_hide(id = NULL)
waiter_update(id = NULL, html = NULL)
|
spinners |
Spinners to include. By default all the CSS files for
all spinners are included you can customise this only that which you
need in order to reduce the amount of CSS that needs to be loaded and
improve page loading speed. There are 7 spinner kits. The spinner kit
required for the spinner you use is printed in the R console when
using the spinner. You can specify a single spinner kit e.g.: |
include_js |
Deprecated argument, no longer needed. |
id |
Id of element to hide or element on which to show waiter over. |
html |
HTML content of waiter, generally a spinner, see |
color |
Background color of loading screen. |
logo |
Logo to display. |
hide_on_render |
Set to |
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
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | library(shiny)
ui <- fluidPage(
use_waiter(), # dependencies
waiter_show_on_load(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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.