tests/testthat/test-chart_annual_growth_by.R

In BAAQMD/ggtools: Helpers for Charting, Mapping, and Plotting Air Quality and Related Data

context("chart_annual_growth")

test_that("test_growth_data", {
  expect_silent(
    test_growth_data %>%
      chart_annual_growth(
        base_year = CY(2015),
        verbose = FALSE))
})

test_that("test_growth_data, gathered by year", {
  expect_silent(
    test_growth_data %>%
      gather_years(
        gf_qty) %>%
      chart_annual_growth(
        base_year = CY(2015),
        verbose = FALSE))
})

test_that("test_ems_data, color = cnty_abbr", {

  expect_silent(
    test_ems_data %>%
      chart_annual_growth_by(
        cnty_abbr,
        flag_years = CY(2015),
        flag_unique = TRUE,
        base_year = CY(2015),
        verbose = FALSE))

})