acc <- system.file("externaldata/accident_2013.csv.bz2", package="fatalityR")
acc<-fars_read(acc)
expect_output(str(acc), "50 VARIABLES", ignore.case = TRUE)
expect_is(acc,"data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.