myraster = raster(matrix(0,10,10),xmn=8,xmx=18,ymn=0,ymx=10,
crs="+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0")
values(myraster) = seq(0,1,len=ncell(myraster))
myPoints = SpatialPoints(myraster, proj4string=CRS(proj4string(myraster)))[
seq(1,ncell(myraster),len=5)]
names(osmTiles())
mytiles = openmap(myraster)
map.new(myraster)
plot(mytiles, add=TRUE)
points(myPoints,col='red')
mytiles = openmap(myPoints,
path=osmTiles("mapquest-sat"), verbose=TRUE)
map.new(myPoints)
plotRGB(mytiles, add=TRUE)
points(myPoints,col='red')
Run the code above in your browser using DataLab