tests/testthat/testdata.R

test_that(".csv data files are available", {
  testthat::expect_equal(list.files(system.file("extdata", package = "Coursera3Sub")),
                         c("accident_2013.csv.bz2",
                           "accident_2014.csv.bz2",
                           "accident_2015.csv.bz2"))
})
anubhavj/Coursera3Sub documentation built on May 19, 2019, 6:20 p.m.