tests/testthat/test-read_regnie.R

In EDiLD/esmisc: Misc Functions of Eduard Szöcs

context("read_regnie")

r <- read_regnie(system.file("extdata", "ra050120.gz", package = "esmisc"))

test_that('read_regnie works', {
  expect_is(r, "RasterLayer")
  expect_equal(nrow(r), 971)
  expect_equal(ncol(r), 611)
  expect_true(is.na(r[1]))
  expect_equivalent(r[438537], 109.1)
  expect_equivalent(r[100000], 5.7)
  expect_equal(as.matrix(extent(r)), 
               structure(c(5.825, 46.9958333333333, 16.0083333333333, 55.0875), 
                         .Dim = c(2L, 2L), 
                         .Dimnames = list(c("x", "y"), c("min", "max")))
  )
})