inst/tests/make_filename.R

make_filename <- function(year) {
        year <- as.integer(year)
        sprintf("accident_%d.csv.bz2", year)
}

testthat::expect_that(make_filename(2013)(fars_read("accident_2013.csv.bz2")), throws_error())
oceanofscience/week2job documentation built on May 6, 2019, 5 p.m.