tests/testthat/test-read_risico_binary.R

In caliver: Calibration and Verification of Gridded Model Outputs

context("read_risico_binary")

test_that("read_risico_binary works", {

  loaded_data <- read_risico_binary(system.file("extdata",
                                                "RISICO_binary.bin",
                                                package = "caliver"))
  # Set missing crs
  raster::crs(loaded_data) <- "+proj=longlat +datum=WGS84 +no_defs"

  expect_equal(dim(loaded_data), dim(r_risico))

})