kmlLine {maptools}
Description
The function is used to create and write a KML file on the basis of a given Lines object (a list of Line objects) for the usage in Google Earth resp. Google Maps.
Usage
kmlLine(obj=NULL, kmlfile=NULL,
name="R Line", description="", col=NULL, visibility=1, lwd=1,
kmlname="", kmldescription="")
Arguments
- obj
- a
LinesorSpatialLinesDataFrameobject - kmlfile
- if not
NULLthe name as character string of the kml file to be written - name
- the name of the KML line
- description
- the description of the KML line (HTML tags allowed)
- col
- the stroke color (see also Color Specification) of the KML line
- visibility
- if set to
1orTRUEspecifies that the KML line should be visible after loading - lwd
- the stroke width for the KML line
- kmlname
- the name of the KML layer
- kmldescription
- the description of the KML layer (HTML tags allowed)
Details
The function is used to convert a given Lines object (a list of Line objects) or the first Lines object listed in a passed SpatialLinesDataFrame object into KML line(s). If kmlfile is not NULL the result will be written into that file. If kmlfile is NULL the generated KML lines will be returned (see also value).
For a passed Lines object the function generates a
Values
x is a list with the elementsstyle and content containing the generated lines of the KML file as character vectors if kmlfile is NULL.
y is a list with the elements header and footer representing the KML file' header resp. footer if obj is NULL.
Color Specification
The following color specifications are allowed:'red', 2, or as hex code '#RRGGBB' resp. '#RRGGBBAA' for passing the alpha value.
See Also
kmlOverlay, kmlPolygon, Line
Examples
xx <- readShapeSpatial(system.file("shapes/fylk-val-ll.shp", package="maptools")[1], proj4string=CRS("+proj=longlat")) out <- sapply(slot(xx, "lines"), function(x) { kmlLine(x, name=slot(x, "ID"), col="blue", lwd=1.5, description=paste("river:", slot(x, "ID"))) }) tf <- tempfile() kmlFile <- file(tf, "w") tf cat(kmlLine(kmlname="R Test", kmldescription="<i>Hello</i>")$header, file=kmlFile, sep="\n") cat(unlist(out["style",]), file=kmlFile, sep="\n") cat(unlist(out["content",]), file=kmlFile, sep="\n") cat(kmlLine()$footer, file=kmlFile, sep="\n") close(kmlFile)
Documentation reproduced from package maptools, version 0.8-23. License: GPL (>= 2)
