Nothing
setMethod("plotKML", "SpatialSamplingPattern", function(
obj,
folder.name = normalizeFilename(deparse(substitute(obj, env=parent.frame()))),
file.name = paste(folder.name, ".kml", sep=""),
colour,
kmz = get("kmz", envir = plotKML.opts),
open.kml = TRUE,
...
){
# target variable:
if(missing(colour)){
obj@sp.domain@data[,"colour"] <- obj@sp.domain@data[,1]
message("Plotting the first variable on the list")
} else {
if(is.name(colour)|is.call(colour)){
obj@sp.domain@data[,"colour"] <- eval(colour, obj@sp.domain@data)
} else {
obj@sp.domain@data[,"colour"] <- obj@sp.domain@data[,as.character(colour)]
}
}
# open the KML file for writing:
kml_open(folder.name = folder.name, file.name = file.name)
# add a description for the whole folder:
kml.out <- get("kml.out", envir=plotKML.fileIO)
description_txt <- sprintf('<description><![CDATA[%s]]></description>', obj@method)
parseXMLAndAdd(description_txt, parent=kml.out[["Document"]])
assign('kml.out', kml.out, envir=plotKML.fileIO)
# plot strata and points:
kml_layer.SpatialPolygons(obj = obj@sp.domain, colour = colour)
kml_layer.SpatialPoints(obj = obj@pattern, ...)
# close the file:
kml_close(file.name = file.name)
if (kmz == TRUE){
kml_compress(file.name = file.name)
}
# open KML file in the default browser:
if(open.kml==TRUE){
kml_View(file.name)
} else {
message(paste("Object written to:", file.name))
}
})
# end of script;
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.