tests/testthat/test-rasterSource.R

context("rasterSource")

test_that("emissions with levels works!", {

  g          <- gridInfo("vertical.nc",z=T)
  r_file     <- paste0(system.file("extdata", package = "EmissV"),"/dmsp.tiff")

  expect_equal(rasterSource(raster::raster(r_file),nlevels = 'all',g),
               rasterSource(raster::raster(r_file),nlevels = 30 ,  g) )

})
Schuch666/EmissV documentation built on Dec. 24, 2024, 3:15 a.m.