tests/testthat/test-data-load.R

#test to check that packaged dataset for 2013 loads

test_that("data loads correctly",  {
    expect_equal(nrow(fars_read(system.file("extdata", "accident_2013.csv.bz2", package = "mvfars"))),  30202)
    expect_equal(ncol(fars_read(system.file("extdata", "accident_2013.csv.bz2", package = "mvfars"))), 50)
})
MaryLvV/mvfars documentation built on May 7, 2019, 3:40 p.m.