R/persons.R

In pandafulmanda/houston.traffic.jam:

persons <- function(crashid = NA) {
  traffic_data <- readRDS('../data/txdot_cris_crashdata_201601_201802.rds')

  if (is.na(crashid)) {
    return(traffic_data$persons)
  } else {
    return(traffic_data$persons %>%
            dplyr::filter(Crash.ID == crashid)
          )
  }
}