diff --git a/R/data.R b/R/data.R index c930174..55e8522 100644 --- a/R/data.R +++ b/R/data.R @@ -13,3 +13,10 @@ #' } #' @source "nodata_chelsa" + +#' Borders of the RĂ©union Island. +#' +#' Geopackage file for borders of the RĂ©union Island. +#' +#' @source +"REU_borders" diff --git a/inst/extdata/REU_borders.gpkg b/inst/extdata/REU_borders.gpkg new file mode 100644 index 0000000..aa6cce7 Binary files /dev/null and b/inst/extdata/REU_borders.gpkg differ diff --git a/tests/testthat/test-get_chelsa_current.R b/tests/testthat/test-get_chelsa_current.R index a8d3f22..d570cc0 100644 --- a/tests/testthat/test-get_chelsa_current.R +++ b/tests/testthat/test-get_chelsa_current.R @@ -1,9 +1,11 @@ library(gecevar) iso <- "REU" epsg <- 32740 + +ifile <- system.file("extdata", "REU_borders.gpkg", package="gecevar") r <- get_aoi_extent(EPSG_proj=epsg, - country_iso=iso, - rm_output_dir=FALSE) + vector_file=ifile) + extent_latlon <- r$extent_latlon extent_proj <- r$extent_proj resol <- 1000