A Leaflet control to add a split screen to compare two map overlays. The plugin works with Panes, see the example.
addSidebyside(
map,
layerId = NULL,
leftId = NULL,
rightId = NULL,
options = list(thumbSize = 42, padding = 0)
)
a map widget
the layer id, needed for removeSidebyside
the layerId
of the Tile layer that should be
visible on the left side
the layerId
of the Tile layer that should be
visible on the right side
A list of options. Currently only thumbSize
and
padding
can be changed.
the new map
object
It is currently not working correctly if the baseGroups
are
defined in addLayersControl
.
Other Sidebyside Functions:
removeSidebyside()
library(leaflet)
library(leaflet.extras2)
leaflet(quakes) %>%
addMapPane("left", zIndex = 0) %>%
addMapPane("right", zIndex = 0) %>%
addTiles(group = "base", layerId = "baseid",
options = pathOptions(pane = "right")) %>%
addProviderTiles(providers$CartoDB.DarkMatter, group="carto", layerId = "cartoid",
options = pathOptions(pane = "left")) %>%
addCircleMarkers(data = breweries91[1:15,], color = "blue", group = "blue",
options = pathOptions(pane = "left")) %>%
addCircleMarkers(data = breweries91[15:20,], color = "yellow", group = "yellow") %>%
addCircleMarkers(data = breweries91[15:30,], color = "red", group = "red",
options = pathOptions(pane = "right")) %>%
addLayersControl(overlayGroups = c("blue","red", "yellow")) %>%
addSidebyside(layerId = "sidecontrols",
rightId = "baseid",
leftId = "cartoid")