doc/introduction.R

In KvEijden/FARS: R Interface to Fatality Analysis Reporting System

## ---- include = FALSE----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(devtools)
load_all()

## ----data----------------------------------------------------------------
fars_data_dir   <- system.file("extdata", package = "FARS", mustWork = FALSE)
fars_data_files <- list.files(fars_data_dir, full.names = TRUE)
fars_data_files

library(readr)
fars_data <- readr::read_csv(fars_data_files[1])
head(fars_data)

## ----summarize-----------------------------------------------------------
head(fars_summarize_years(2013), n = 4)

## ----map-----------------------------------------------------------------
fars_map_state(state.num = "04", year = 2015)