tests/testthat/test-seriesExtent.R

In soilDB: Soil Database Interface

test_that("seriesExtent works", {
  
  skip_if_offline()
  
  skip_on_cran()
  
  skip_if_not_installed("sf")
  
  x <- seriesExtent('Amador')
  
  # NULL result on network-related error
  skip_if(is.null(x))
  
  expect_true(inherits(x, 'sf'))
  
  skip_if_not_installed("terra")
  
  x2 <- seriesExtent('Amador', type = 'raster')
  
  # NULL result on network-related error
  skip_if(is.null(x2))
  
  expect_true(inherits(x2, 'SpatRaster'))
})