tests/testthat/test-fars_read.R

# Test fars_read

expect_that(fars_read("joe.csv"), throws_error())

expect_that(fars_read(system.file("extdata", sprintf("accident_%d.csv.bz2", 2013), package = "samplePackage2")),
            is_a("tbl_df"))
codyschulz/samplePackage2 documentation built on May 3, 2019, 9:37 p.m.