tests/testthat/test-visualizations.R

test_that("viz_01_poverty_scatterplot works", {
  gg <- viz_01_poverty_scatterplot(upwork03::averages)
  expect_equal(class(gg), c("gg", "ggplot"))
})
Athospd/upwork03 documentation built on Jan. 17, 2021, 12:11 a.m.