tests/testthat/test-areaSource.R

In Schuch666/EmissV: Tools for Create Emissions for Air Quality Models

context("areaSource")

test_that("emissions with source by area", {
  # expect_equal(areaSource(raster::shapefile(paste0(system.file("extdata", package = "EmissV"),"/BR.shp"))[22,1],
  #                         raster::raster(paste0(system.file("extdata", package = "EmissV"),"/dmsp.tiff")),
  #                         gridInfo(paste0(system.file("extdata", package = "EmissV"),"/wrfinput_d01"))),
  #              readRDS("data01.Rds"))

  expect_equal(areaSource(raster::shapefile(paste0(system.file("extdata", package = "EmissV"),"/BR.shp"))[22,1],
                          raster::raster(paste0(system.file("extdata", package = "EmissV"),"/dmsp.tiff")),
                          gridInfo(paste0(system.file("extdata", package = "EmissV"),"/wrfinput_d01")),
                          as_frac = T,name = "Chururuba"),
               0.94498168602780175)

  expect_equal(dim(areaSource(raster::shapefile(paste0(system.file("extdata", package = "EmissV"),"/BR.shp"))[22,1],
                              raster::raster(paste0(system.file("extdata", package = "EmissV"),"/dmsp.tiff")),
                              grid = NA,as_frac = T,name = "Juruzinha")),
               c(637,609,1))

})