tests/testthat/test_load.R

library(readr)
library(dplyr)

filename <- make_filename(2015)
expect_that(filename, is_identical_to("accident_2015.csv.bz2"))
cawrence391/FARSlawrence documentation built on May 15, 2019, 1:28 p.m.