context("make_filename")
test_that("make_filename returns the expected value", {
yr <- "2013"
out <- "accident_2013.csv.bz2"
expect_equal(make_filename(yr), out)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.