library(testthat)
library(fars)
context("test functions")
filename <- make_filename("2013")
test_that("test make_filename",{
expect_that(filename,is_a("character"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.