tests/testthat/test_extdata.R

test_that(".csv data files are available", {
  testthat::expect_equal(list.files(system.file("extdata", package = "farsdata")),
               c("accident_2013.csv.bz2",
                 "accident_2014.csv.bz2",
                 "accident_2015.csv.bz2"))
})
adeel1997/farsdata documentation built on Jan. 11, 2021, 12:24 a.m.