tests/testthat/test_extdata.R

test_that("if CSV fies are there", {
  testthat::expect_equal(list.files(system.file("extdata", package = "Week4BuildingRPackages")),
                         c("accident_2013.csv.bz2",
                           "accident_2014.csv.bz2",
                           "accident_2015.csv.bz2"))
})
njoysavi/Week-4_Building_R_Packages documentation built on May 13, 2019, 4:07 a.m.