kml.tiles(obj, folder.name, file.name,
block.x, kml.logo, cpus, home.url=".", desc=NULL,
open.kml=TRUE, return.list=FALSE, ...)
"SpatialPoints*"
or "SpatialLines*"
or "SpatialPolygons*"
; vector layeraesthetics
)plotKML
, plotKML.GDALobj
library(sp)
library(snowfall)
library(GSIF)
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