tests/testthat/test-lineSource.R

In EmissV: Tools for Create Emissions for Air Quality Models

context("lineSource")

test_that("line emissions works", {

  s <- readRDS("sf.Rds")
  g <- gridInfo(paste0(system.file("extdata", package = "EmissV"),"/wrfinput_d03"))

  expect_equal( suppressWarnings( raster::cellStats(lineSource(s[1,],g,as_raster=TRUE),"sum") ),1)
  expect_equal(sum(lineSource(s[1,],g,as_raster=FALSE)),1)

})