tests/testthat/setup.R

In raptr: Representative and Adequate Prioritization Toolkit in R

# load case study data
cs_pus <- sf::read_sf(
  system.file("extdata", "cs_pus.gpkg", package = "raptr")
)

cs_spp <- terra::rast(
  system.file("extdata", "cs_spp.tif", package = "raptr")
)

cs_space <- terra::rast(
  system.file("extdata", "cs_space.tif", package = "raptr")
)