data-raw/pu.R

In remi-daigle/marxanr: An R interface for Marxan

planningarea <- dplyr::bind_rows(marxanr::ecolayers,marxanr::costs) %>%
  sf::st_make_valid()

pu <- sf::st_make_grid(planningarea,
                       square=FALSE,
                       n=100) %>%
  sf::st_as_sf() %>%
  sf::st_filter(planningarea) %>%
  dplyr::mutate(id=row.names(.))

sf::st_geometry(pu) <-  "geometry"
pu <- pu[c("id","geometry")]
usethis::use_data(pu, overwrite = TRUE, compress = "xz")

sinew::makeOxygen(pu)
#copy the sinew output to R/data.R and fill it out