Description Usage Arguments Value Examples
View source: R/utils-spatial.R
Convert a data.frame containing WKT polygons to a SpatialPolygonsDataFrame
.
Extract vertices from a SpatialPolygonsDataFrame and optionally applies an aggregating function to each Polygon.
1 2 3 4 5 6 | WKT2SpatialPolygonsDataFrame(dat, geom, id)
vertices(object, FUN)
## S4 method for signature 'SpatialPolygons'
vertices(object, FUN)
|
dat |
|
geom |
is the name (character vector) of the column in the
|
id |
is the name (character vector) of the column in the
|
object |
An object. |
FUN |
A function. |
a SpatialPolygonsDataFrame
object.
A SpatialPointsDataFrame containing an id column corresponding to each extracted Polygon.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | require(rangeMapper)
require(rgeos)
# generate a few random polygons
randPoly = function(mean, sd) {
writeWKT(
gConvexHull(
readWKT(paste("MULTIPOINT (",
paste(apply(matrix(rnorm(n= 100, mean, sd), ncol = 2), 1,
paste, collapse = ' '), collapse = ","), ")"))))
}
n = 50
d = data.frame( nam = sample(letters, n, TRUE),
range = mapply(randPoly, mean = sample(1:2, n, TRUE),
sd = sample(1:2/5, n, TRUE) ))
X = WKT2SpatialPolygonsDataFrame(d, 'range', 'nam')
dbcon = rangeMap.start(file = "test.sqlite", overwrite = TRUE, dir = tempdir() )
global.bbox.save(con = dbcon, bbox = X)
gridSize.save(dbcon)
canvas.save(dbcon)
processRanges(spdf = X, con = dbcon, ID = "nam")
rangeMap.save(dbcon)
plot(rangeMap.fetch(dbcon))
require(rangeMapper)
require(rgdal)
f = system.file(package = "rangeMapper", "extdata", "wrens", "vector")
# path to Campylorhynchus_gularis breeding range:
camgul = selectShpFiles(f, ogr = TRUE, polygons.only = TRUE)[6, ]
r = readOGR(camgul$dsn, camgul$layer)
mp = vertices(r, mean)
v = vertices(r)
plot(r)
points(mp, col = 2, pch = 3, cex = 2)
points(v, pch = 3, cex = .5)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.