context("Make the Right File Name")
library(farsManipulate)
test_that("make_filename() makes the right file name",{
expect_equal(make_filename(01), "accident_1.csv.bz2")
expect_equal(make_filename(1908),"accident_1908.csv.bz2")
expect_error(make_filename(tq1234))
expect_error(make_filename(`meow`))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.