tests/testthat/test_fars_read_integer.R

make_file_name_test_year <- function(year) {
  year <- as.integer(year)
  year
  #sprintf("accident_%d.csv.bz2", year)
}

library(testthat)
library(fedtrafat)
expect_that(class(make_file_name_test_year(2003)), is_equivalent_to("integer"))
Nilesh1978/fedtrafat documentation built on May 21, 2019, 7:53 a.m.