# NOT RUN {
library(sp)
library(snowfall)
library(rgdal)
data(eberg)
coordinates(eberg) <- ~X+Y
proj4string(eberg) <- CRS("+init=epsg:31467")
## plot using tiles:
shape = "http://maps.google.com/mapfiles/kml/pal2/icon18.png"
# tiles.p <- kml.tiles(eberg["SNDMHT_A"], block.x=0.05,
# size=0.8, z.lim=c(20,50), colour=SNDMHT_A, shape=shape,
# labels=SNDMHT_A, return.list=TRUE)
## Returns a list of tiles
# data(eberg_contours)
# tiles.l <- kml.tiles(eberg_contours, block.x=0.05,
# colour=Z, z.lim=range(eberg_contours$Z),
# colour_scale=SAGA_pal[[1]], return.list=TRUE)
# }
Run the code above in your browser using DataLab