R/utils.R

Defines functions is.spdf same.crs

# check SpatialPointsDataFrame
is.spdf <- function(x) {
  inherits(x, "SpatialPoints")
}

# check identical CRS
same.crs <- function(x,y) {
  identical(x@proj4string, y@proj4string)
}
sebdalgarno/HGfetch documentation built on May 29, 2019, 4:57 p.m.