R/utils.R

In sebdalgarno/haidawave: Wave exposure from fetch and wind data

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

# check identical CRS
same.crs <- function(x,y) {
  identical(x@proj4string, y@proj4string)
}