tests/testthat/test-spex-extent.R

In spex: Spatial Extent Tools

context("spex-extent")

test_that("extent and crs works", {
  expect_that(spex(raster::extent(lux), raster::projection(lux)), is_a("SpatialPolygonsDataFrame"))

})


test_that("by id is not implemented", {
  expect_that(spex(lux, byid = TRUE), throws_error("implemented"))
})



test_that("extent of anything", {
  library(raster)
  expect_equal(raster::xmin(spex(psf)), 0)
  expect_equal(raster::xmax(spex(psf)), 1.23)

  expect_equal(raster::extent(spex()) , raster::extent(0, 1, 0, 1))

  expect_equal(xlim(ice), c(-3950000,  3950000))
  expect_equal(ylim(ice), c(-3950000,  4350000))
})

library(raster)
r <- setExtent(raster(volcano), c(101, 102, -80, -30))

test_that("axis extents", {
  expect_equal(xlim(r), c(101, 102))
  expect_equal(ylim(r), c(-80, -30))
})