myraster = raster(matrix(0,10,10),xmn=8,xmx=18,ymn=0,ymx=10, crs="+proj=longlat")
values(myraster) = seq(0,1,len=ncell(myraster))
myPoints = SpatialPoints(myraster, proj4string=CRS(proj4string(myraster)))[
seq(1,ncell(myraster),len=5)]
par(mar=c(0,0,0,0))
mytiles = openmap(myraster)
plot(myraster)
plot(mytiles, add=TRUE)
points(myPoints,col='red')
mytiles = openmap(myPoints,
path="b.www.toolserver.org/tiles/bw-mapnik", verbose=TRUE)
plot(myPoints)
plot(mytiles, add=TRUE)
points(myPoints,col='red')
Run the code above in your browser using DataLab