tests/testthat/test-get_series.R

test_that("get_series returns full dataset", {
  expect_equal(nrow(get_series("SWP-R1N1983Q2")), 78)
})

test_that("get_series includes date variable", {
  expect_s3_class(get_series("CES_C4E_LOSE_JOB_SK")$date, "Date")
})

Try the valet package in your browser

Any scripts or data that you put into this service are public.

valet documentation built on June 8, 2025, 1:03 p.m.