library(testthat)
library(magrittr)
library(farstest)
testthat::expect_that(farstest::make_filename(2013) %>%
farstest::fars_read() %>%
nrow(),
testthat::equals(30202))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.