Loading bars and spinners.
Usage
useVizLoad()
vizLoad(
uiOutput,
type = "bars",
size = "large",
color = NULL,
add_label = FALSE,
label = "Loading..."
)
Arguments
- uiOutput
An output element to be wrapped within a spinner.
- type
The type of bar/spinner to use. Valid values are:
bars
squares
circles
dots
spinner
dashed
line
bordered_line
- size
The size of the bar/spinner. Valid values are:
large
medium
small
tiny
fluid
- color
The color of the bar/spinner. Choose between hexadecimal, RGB or keyword values.
- add_label
Logical; if
TRUE
, displays a label below the bar/spinner. Defaults toFALSE
.- label
The label to be displayed below the bar/spinner.
add_label
must be set toTRUE
to display the label.
Examples
if (interactive()) {
library(shiny)
shinyApp(
ui = fluidPage(
useVizLoad(),
actionButton("render", "Render"),
vizLoad(plotOutput("plot"))
),
server = function(input, output) {
output$plot <- renderPlot({
input$render
Sys.sleep(3)
hist(mtcars$mpg)
})
}
)
}