tests/testthat/test-calc_precipitation_chirps.R

In mapme-initiative/mapme.biodiversity: Efficient Monitoring of Global Biodiversity Portfolios

# This test was deactivated because calls to the CHIRPS website would fail.
# TODO: reactivate this test
# test_that("precipitation indicator works", {
#   skip_on_cran()
#   x <- read_sf(
#     system.file("extdata", "gfw_sample.gpkg",
#       package = "mapme.biodiversity"
#     )
#   )
#   .clear_resources()
#   outdir <- file.path(tempdir(), "mapme.data")
#   .copy_resource_dir(outdir)
#   mapme_options(outdir = outdir, verbose = FALSE)
#   get_resources(x, get_chirps(years = 2010))
#   chirps <- prep_resources(x)[["chirps"]]
#
#   expect_message(cpc <- calc_precipitation_chirps(1980:1982))
#   expect_error(calc_precipitation_chirps(years = 1970:1971))
#   expect_error(calc_precipitation_chirps(years = 1981:1982, engine = "not-av"))
#   expect_true(is.null(cpc(x, NULL)))
#   cpc <- calc_precipitation_chirps(years = 2010)
#   result <- cpc(x, chirps)
#   cpc <- calc_precipitation_chirps(years = 2010, engine = "zonal")
#   result_zonal <- cpc(x, chirps)
#   cpc <- calc_precipitation_chirps(years = 2010, engine = "extract")
#   result_extract <- cpc(x, chirps)
#   cpc <- calc_precipitation_chirps(years = 2010, engine = "exactextract")
#   result_exact <- cpc(x, chirps)
#
#   expect_silent(.check_single_asset(result[[1]]))
#   expect_silent(.check_single_asset(result_zonal[[1]]))
#   expect_silent(.check_single_asset(result_extract[[1]]))
#   expect_silent(.check_single_asset(result_exact[[1]]))
#
#   expect_equal(unique(result[[1]]$variable), "precipitation")
#   expect_equal(result_zonal[[1]]$value, result_extract[[1]]$value,
#     tolerance = 1e-4
#   )
#   expect_snapshot(result[[1]]$value)
# })