tests/testthat/test-buffer.R

context("buffer")
library(raster)
test_that("whole grain buffers work", {
  expect_identical(buffer_extent(extent(lux), 10) %>% as_double(), c(0, 10, 40, 60))
  expect_equal(buffer_extent(extent(lux), 10) %>% as_integer(), c(0, 10, 40, 60))
  
})
mdsumner/spex documentation built on Oct. 4, 2020, 6:33 a.m.