tests/testthat/test-getextent.R

In IREA-CNR-MI/sprawl: sprawl: Spatial Processing (in) R: Advanced Workflows Library

context("Checking extraction of extent")
testthat::test_that("Test retrieval of extent",{
  # skip_on_cran()
  skip_on_travis()
  # no proj set
  library(sprawl.data)
  testthat::expect_error(get_projstring(in_pts))

  # extraction of projstring from raster ----
  in_rast_file <- system.file("extdata", "sprawl_EVItest.tif", package = "sprawl.data")
  in_rast      <- raster::raster(in_rast_file)

  ext_file     <- get_extent(in_rast_file)
  expect_is(ext_file, "sprawlext")
  ext_rast     <- get_extent(in_rast)
  expect_is(ext_rast, "sprawlext")
  expect_equal(ext_rast, ext_file)

  in_vect_file <- system.file("extdata","lc_polys.shp", package = "sprawl.data")
  in_vect      <- read_vect(in_vect_file)
  in_vect_sp   <- read_vect(in_vect_file, as_sp = TRUE)
  ext_file <- get_extent(in_vect)
  ext_sf <- get_extent(in_vect)
  ext_sp <- get_extent(in_vect_sp)

  expect_is(ext_file, "sprawlext")
  expect_equal(ext_file, ext_sf)
  expect_equal(ext_sf@extent, ext_sp@extent)


  # warning/abort on wrong projstring ----
  wrong_file <- "/tttt/wrong.tif"
  expect_error(get_extent(wrong_file, abort = TRUE))
  expect_warning(get_extent(wrong_file, abort = FALSE))

})