R/is_geodata.R

is_geodata <- function (x, verbose = getOption("verbose")) {

  msg <- function (...) if(isTRUE(verbose)) message("[is_geodata] ", ...)

  if (inherits(x, c("sf", "sfc"))) {
    return(TRUE)
  } else {
    return(FALSE)
  }

}
BAAQMD/geotools documentation built on Feb. 29, 2024, 5:44 a.m.