tests/testthat/test_make_filename.R

#test make_filename
library(testthat)
test_that("make_filename makes FARS file name", {expect_equal(make_filename(2013),"accident_2013")})

expect_that(make_filename("2013"),equals("accident_2013.csv.bz2"))
mcuddy76/FARScoursera documentation built on May 9, 2019, 10:42 a.m.