tests/testthat/test-sum_throughputs_by.R

context("sum_throughputs_by")

test_that("sum throughputs by year", {

  input_data <- ems_and_tput %>% mutate(cf_qty = runif(nrow(.)))
  summed <- sum_throughputs_by(input_data, year)
  expect_equal(summed, tput_by_year)

})
BAAQMD/qtytools documentation built on June 30, 2022, 6:07 p.m.