tests/testthat/test_fars_read_years.R

In KvEijden/FARS: R Interface to Fatality Analysis Reporting System

# test if data sets of 2013, 2014 and 2015 are present

#context("test_fars_read_years")

test_that("data for years 2013 to 2015 are available", {
  years <- 2013:2015
  for (i in 1:length(years)) {
    expect_gte(
      object =   nrow(fars_read_years(years[i])[[1]]),
      expected = 0)
  }
})