R/is_geodata.R

In BAAQMD/geotools: Manipulate and Filter Geospatial Data

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)
  }

}