R/internal.R

In cgalPolygons: R6 Based Utilities for Polygons using 'CGAL'

Defines functions isBoolean isCGALpolygonWithHoles isCGALpolygon noMissingValue

noMissingValue <- function(x) {
  !anyNA(x)
}

#' @importFrom R6 is.R6
#' @noRd
isCGALpolygon <- function(x) {
  is.R6(x) && inherits(x, "cgalPolygon")
}

isCGALpolygonWithHoles <- function(x) {
  is.R6(x) && inherits(x, "cgalPolygonWithHoles")
}

isBoolean <- function(x) {
  is.logical(x) && length(x) == 1L && !is.na(x)
}

Try the cgalPolygons package in your browser