tests/testthat/test-get_chelsa.R

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

test_that("get_chelsa works", {
  skip_on_cran()

  expect_error(get_chelsa(1970))
  gc <- get_chelsa(years = 2010)
  expect_silent(.check_resource_fun(gc))
  fps <- gc(aoi)
  expect_silent(fps <- .check_footprints(fps))
  expect_equal(nrow(fps), 12)
})