tests/testthat/test_fars_read.R

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")
kurowska/fars documentation built on May 20, 2019, 7:06 p.m.