data/nypoly.R

if (requireNamespace("sf", quietly = TRUE) &
    requireNamespace("sp", quietly = TRUE)) {
  nypoly <- sf::as_Spatial(get0("smerc_nysf_internal",
                                envir = asNamespace("smerc"))["geometry"])
} else {
  message("The sf and sp packages must be installed to produce this data. Returning a NULL object.")
  nypoly <- NULL
}
jpfrench81/smerc documentation built on Jan. 13, 2024, 4:30 a.m.