tests/testthat/test_farsdata.R

In Kazim1212/fars_packagebuild: FARS Data Tools

context('Errors')

test_that('Throws errors', {
  throws_error(fars_read_years(years = 2000))
  throws_error(fars_summarize_years(years = 2000))
  throws_error(make_filename(year = 'two thousand thirteen'))

  library(mapdata)
  throws_error(fars_map_state(3, 2014))
  throws_error(fars_map_state(36, 2000))
})

context('File load and summary are correct')

test_that('Loads multiple years correctly', {
  dfs <- fars_read_years(2013:2015)
  expect_that(dfs, is_a('list'))
  expect_that(dfs[[1]], is_a('tbl_df'))
  expect_equal(length(dfs), 3)
})

test_that('Reads one file correctly', {
  fn <- make_filename(2013)
  df <- fars_read(fn)
  expect_that(df, is_a('tbl_df'))
  expect_that(nrow(df), is_more_than(0))
})

test_that('FARS Summarize Years is correct', {
  years <- 2013:2015
  df <- fars_summarize_years(years)
  expect_that(nrow(df), equals(12))
  expect_that(ncol(df), equals(length(years) + 1))
  expect_that(names(df)[1], matches('MONTH'))
})

test_that('Mapping works', {
  library(mapdata)
  map <- fars_map_state(36, 2014)
  expect_that(map, is_null())
})