tests/testthat/test_fars_read.R

acc <- system.file("externaldata/accident_2013.csv.bz2", package="fatalityR")
acc<-fars_read(acc)
expect_output(str(acc), "50 VARIABLES", ignore.case = TRUE)
expect_is(acc,"data.frame")
GustavoBruges/fatalityR documentation built on May 7, 2019, 7:43 a.m.