tests/testthat/test-data.R

In leonawicz/snapgrid: Common SNAP Geographic Raster Layers

context("data")

test_that("Confirm raster class and identical projections", {
  cl <- "RasterLayer"
  x <- list(ak1km, akcan1km, akcan2km, swfmo, swratios, swveg, swflam)
  proj4 <- "+proj=aea +lat_1=55 +lat_2=65 +lat_0=50 +lon_0=-154 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs +ellps=GRS80 +towgs84=0,0,0" # nolint
  purrr::map(x, ~expect_is(.x, cl))
  purrr::map(x, ~expect_identical(raster::projection(.x), proj4))
})