tests/testthat/testthat_FarsProject.R

context("Test FARS functions")
filename <- system.file("extdata", "accident_2013.csv.bz2", package = "FarsProject")
expect_that(fars_read(filename), is_a("tbl"))
shaank121/FarsProject documentation built on May 29, 2019, 9:34 a.m.