R/fars_read.R

In NickSc79/Fars2: This package shows the distribution of the accident at USA in 2013, 2014 and 2015

fars_read <- function(filename) {
    if(!file.exists(filename))
        stop("file '", filename, "' does not exist")
    data <- suppressMessages({
        readr::read_csv(filename, progress = FALSE)
    })
    dplyr::tbl_df(data)
}