| addSpinner | R Documentation |
Adds an animated loading spinning over the map.
addSpinner(map)
startSpinner(map, options = NULL)
stopSpinner(map)
map |
A map widget object created from |
options |
Spin.js options. Named list. See http://spin.js.org |
A leaflet map object
startSpinner() and stopSpinner() in the same
leaflet or leafletProxy
chain are sent to the browser together. Use
spinWhile (or start the spinner, then run the work after
session$onFlushed).
https://github.com/makinacorpus/Leaflet.Spin
https://github.com/fgnass/spin.js
Other Spinner Functions:
spinWhile()
library(leaflet)
leaflet(data = quakes) %>%
addTiles() %>%
addSpinner() %>%
startSpinner(options = list("lines" = 7, "length" = 20)) %>%
addMarkers(~long, ~lat, popup = ~ as.character(mag), label = ~ as.character(mag)) %>%
stopSpinner()
## Not run:
library(shiny)
shinyApp(
ui = fluidPage(
actionButton("go", "Load markers"),
leafletOutput("leaf")
),
server = function(input, output, session) {
output$leaf <- renderLeaflet({
leaflet() %>%
addTiles() %>%
addSpinner()
})
observeEvent(input$go, {
spinWhile("leaf",
{
Sys.sleep(2)
leafletProxy("leaf") %>%
addMarkers(data = quakes, ~long, ~lat)
},
options = list(lines = 7, length = 20)
)
})
}
)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.