Mapa s užším pohledem
Pomocí argumentu options ve funkci leaflet() můžeme omezit, jak daleko mohou uživatelé mapu posouvat. Nastavením minZoom a dragging vytvoříme interaktivní webovou mapu, která bude vždy zaměřená na konkrétní oblast.
leaflet(options =
leafletOptions(minZoom = 14, dragging = FALSE)) %>%
addProviderTiles("CartoDB") %>%
setView(lng = -73.98575, lat = 40.74856, zoom = 14)
Pokud ale chceme uživatelům umožnit posun mapy a zároveň zajistit, aby se příliš nevzdálili, můžeme nastavit maximální hranice mapy zadáním dvou protilehlých rohů obdélníku.
Pomocí dc_hq vytvoř mapu s podkladovou dlaždicí "CartoDB", která bude vystředěná na belgické kanceláři DataCampu.
Toto cvičení je součástí kurzu
Interaktivní mapy s leaflet v R
Pokyny k cvičení
- Nastav minimální úroveň přiblížení na 12.
- Nastav možnost
draggingnaTRUE. - Použij maximální hranice 0,05 desetinného stupně od sídla společnosti.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
leaflet(options = leafletOptions(
# Set minZoom and dragging
minZoom = ___, dragging = FALSE)) %>%
addProviderTiles("CartoDB") %>%
# Set default zoom level
setView(lng = dc_hq$lon[2], lat = dc_hq$lat[2], zoom = 14) %>%
# Set max bounds of map
setMaxBounds(lng1 = dc_hq$lon[2] + ___,
lat1 = dc_hq$lat[2] + .05,
lng2 = dc_hq$lon[2] - ___,
lat2 = dc_hq$lat[2] - .05)