tests/test_fars_functions.R

library(testthat)
library(dplyr)
library(essaipackage)

test_that("fars_read works properly", {
  # expect_that(fars_read("accident_2013.csv.bz2"), is_a("tibble"))
  expect_equal(nrow(fars_read("accident_2013.csv.bz2")), 30202L)
})
jinleng85/essaipackage documentation built on Jan. 10, 2022, 2:23 p.m.