tests/testthat/test-timeplot.R

test_that("output is a ggplot2 plot", {
  file=dataclean("https://www.ers.usda.gov/webdocs/DataFiles/48747/Unemployment.csv")
  p <- plotunemployed_time(file, "IA")

  expect_s3_class(p, "ggplot")
})
zzhou93/unemployedR documentation built on May 14, 2022, 4:54 p.m.