https://github.com/cran/plotKML
Tip revision: a8d190e076254effb816d43248ec8b175cf0f508 authored by Tomislav Hengl on 06 May 2015, 17:31:25 UTC
version 0.5-2
version 0.5-2
Tip revision: a8d190e
plotKML.SpatialSamplingPattern.R
# Purpose : Generic methods to plot sampling designs
# Maintainer : Tomislav Hengl (tom.hengl@wur.nl);
# Contributions : ;
# Dev Status : Alpha
# Note : it is largely based on the spcosa classes;
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;