# Test make_filename
test_that("year and character", {
year <- as.integer(2012)
expect_that(year,
is_a("integer"))
expect_that(system.file("extdata", sprintf("accident_%d.csv.bz2", year), package = "samplePackage2"),
is_a("character"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.