library(readr)
library(dplyr)
filename <- make_filename(2013)
file <- system.file("exdata",filename, package = "fars")
data<-fars_read(file)
expect_output(str(data), "50 VARIABLES", ignore.case = TRUE)
expect_is(data,"data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.