test_that("file name making works", {
year <- 2011
t.filename <- make_filename(year)
expect_that(typeof(t.filename), is_a("character"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.