14 lines
486 B
R
14 lines
486 B
R
library("leaflet")
|
|
library("mapview")
|
|
library("webshot")
|
|
m <- leaflet() |>
|
|
addTiles() |>
|
|
setView(lng = -3.432, lat = 53.1, zoom = 6.4)
|
|
# |>
|
|
# addMarkers(lat = 55.953251, lng = -3.188267, popup = "Edinburgh") |>
|
|
# addMarkers(lat = 51.4545, lng = -2.5879, popup = "Bristol") |>
|
|
# addMarkers(popup = "Leeds", lat = 53.8008, lng = -1.5491) |>
|
|
# addMarkers(popup = "Reading", lat = 51.455, lng = -0.971)
|
|
print(m)
|
|
|
|
mapshot(m, file = "img/uk-map.png", cliprect = c(20, 365, 395, 600))
|