coerce-sp-methods: Coerce '"SpatialPolygons"' to '"owin"'

In polyCub: Cubature over Polygonal Domains

Coerce "SpatialPolygons" to "owin"

Description

Package polyCub implements coerce-methods (as(object, Class)) to convert "SpatialPolygons" (or "Polygons" or "Polygon") of package sp to "owin" of package spatstat.geom. They are also available as as.owin.* functions to support polyCub.midpoint.

Usage

as.owin.SpatialPolygons(W, ...)

as.owin.Polygons(W, ...)

as.owin.Polygon(W, ...)

Arguments

W	an object of class "SpatialPolygons", "Polygons", or "Polygon".
...	further arguments passed to owin.

Value

The polygon(s) as an "owin" object.

Author(s)

Sebastian Meyer

See Also

xylist

Examples

diamond <- list(x = c(1,2,1,0), y = c(1,2,3,2))  # anti-clockwise
diamond.sp <- sp::Polygon(lapply(diamond, rev))  # clockwise

diamond.Ps <- sp::Polygons(list(diamond.sp), ID = "my diamond")
diamond.SpPs <- sp::SpatialPolygons(list(diamond.Ps))

if (require("spatstat.geom")) {
    diamond.owin <- owin(poly = diamond)
    diamond.owin_from_Polygon <- as.owin(diamond.sp)
    stopifnot(all.equal(diamond.owin, diamond.owin_from_Polygon))
    ## also for "Polygons" and "SpatialPolygons", using S3 or S4 methods:
    stopifnot(identical(diamond.owin, as.owin(diamond.Ps)))
    stopifnot(identical(diamond.owin, as(diamond.SpPs, "owin")))
}

polyCub documentation built on April 24, 2026, 5:07 p.m.