R/utils.R

Defines functions is_geometry is_crs

#' @importFrom magrittr %>%
#' @export
magrittr::`%>%`

is_geometry <- function(x) {
  inherits(x, "sfc")
}

is_crs <- function(x) {
  inherits(x, "crs")
}
etiennebr/geotidy documentation built on Feb. 28, 2020, 4:45 a.m.