test_that("can read FARS report CSV files",{
setwd(file.path(find.package("farsr"),"extdata"))
smry <- fars_summarize_years(list(2013,2014))
expect_is(smry,"data.frame")
expect_equal(nrow(smry),12)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.