data-raw/injury_data.R

In mjkarlsen/traumaR: This package was created to manipulate the Pennsylvania Trauma Outcome System (PTOS) data.

## code to prepare `injury_data` dataset goes here

injury_data <- arrow::read_csv_arrow("E:/Northwestern/12 - Capstone/Data/injury_data.csv")


injury_data <- injury_data %>%
  mutate.(injury_chapter = injury_lvl_1(e_code),
          injury_subchapter = injury_desc_short) %>%
  rename.(injury_code = e_code) %>%
  select.(injury_code, injury_chapter, everything.())

# injury_data %>% View()


usethis::use_data(injury_data, overwrite = TRUE)