tests/testthat/test_add_total_emissions_year.R

test_that("Data from 2019 is not included", {
  data(ghg)
  ghg_2019 <- ghg %>% 
    dplyr::filter(Year == 2019)
  expect_false(add_total_emissions_year(ghg_em_year = ghg_2019) > 0)
})

a = 1
b = 3

expect_that(a + b, equals(4))
angiebouche/ESM_262_Assignment_5 documentation built on June 14, 2019, 3:25 p.m.