tests/testthat/test_download_db1b.R

library(skynet)

context("Test Download DB1B")

test_that("Download DB1B", {
  skip_on_cran()
  download_db1b(2011, 1)
  expect_output(str(nrow(OD_2011Q1)), "8592669")
  expect_length(OD_2011Q1, 19)
})

Try the skynet package in your browser

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

skynet documentation built on June 17, 2022, 5:05 p.m.