data("netherlands")
nldTiles = terra::unwrap(nldTiles)
plot(nldTiles)
openmapAttribution('osm', short=TRUE, type='markdown')
openmapAttribution("stamen-watercolor", type='text')
myraster = rast(matrix(1:100,10,10),extent=ext(8, 18, 0, 10), crs=crsLL)
myPoints = as.points(myraster)[seq(1, ncell(myraster), len=12)]
names(osmTiles())
mytiles = try(openmap(myraster, zoom=5, verbose=TRUE))
oldpar = map.new(myraster)
plot(mytiles, add=TRUE)
points(myPoints,col='red')
myPoints = project(myPoints, crsMerc)
map.new(myPoints)
# \donttest{
mytiles = try(openmap(myPoints,
path='https://livemap-tiles1.waze.com/tiles', verbose=TRUE, buffer=5))
plot(mytiles, add=TRUE)
# }
points(myPoints, col='red')
par(oldpar)
Run the code above in your browser using DataLab