R/fars_summarize_years.R

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

fars_summarize_years <- function(years) {
    dat_list <- fars_read_years(years)
    dplyr::bind_rows(dat_list) %>%
        dplyr::group_by(year, MONTH) %>%
        dplyr::summarize(n = n()) %>%
        tidyr::spread(year, n)
}