data("nuts2006")
# Download the tiles, nuts0.spdf extent
EuropeOsm <- getTiles(spdf = nuts0.spdf, type = "osm")
class(EuropeOsm)
# Plot the tiles
tilesLayer(EuropeOsm)
# Plot countries
plot(nuts0.spdf, add=TRUE)
# Map tiles sources
mtext(text = "Map data © OpenStreetMap contributors, under CC BY SA.",
side = 1, adj = 0, cex = 0.7, font = 3)
Run the code above in your browser using DataLab