#' File contains simple tests of make_filename function.
library(testthat)
library(fars)
expect_that(make_filename(2013), equals('accident_2013.csv.bz2'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.