Nothing
locationFilter2Dependencies <- function() {
list(
htmltools::htmlDependency(
"leaflet-locationfilter2",
"0.1.1",
"htmlwidgets/plugins/leaflet-locationfilter",
package = "leaflet",
script = c("locationfilter.js", "locationfilter-bindings.js"),
stylesheet = c("locationfilter.css")
)
)
}
addSelect <- function(map, data = getMapData(map)) {
map$dependencies <- c(map$dependencies,
leafletEasyButtonDependencies(),
locationFilter2Dependencies())
map <- addIonIcon(map)
invokeMethod(map, data, "addSelect",
getCrosstalkOptions(data)[["ctGroup"]]
)
}
removeSelect <- function(map) {
invokeMethod(map, NULL, "removeSelect")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.