R/is-methods.R

Defines functions is.geometrycollection is.featurecollection is.feature is.multipolygon is.polygon is.multilinestring is.linestring is.multipoint is.point is_generator

is_generator <- function(x, y) {
  if (!inherits(x, y)) {
    stop("x must be of class '", y, "'", call. = FALSE)
  }
}
is.point <- function(x) is_generator(x, "geopoint")
is.multipoint <- function(x) is_generator(x, "geomultipoint")
is.linestring <- function(x) is_generator(x, "geolinestring")
is.multilinestring <- function(x) is_generator(x, "geomultilinestring")
is.polygon <- function(x) is_generator(x, "geopolygon")
is.multipolygon <- function(x) is_generator(x, "geomultipolygon")
is.feature <- function(x) is_generator(x, "geofeature")
is.featurecollection <- function(x) is_generator(x, "geofeaturecollection")
is.geometrycollection <- function(x) is_generator(x, "geogeometrycollection")
ropensci/geojson documentation built on Aug. 23, 2023, 10:30 a.m.