data-raw/achievements.R

In aftonsteps/rdew: rdew

## Load Achievements data

achievements <-
  readr::read_csv("data-raw/files/Achievements.csv") %>%
  make_cols_snake_case() %>%
  dplyr::mutate(prerequisite_achievement =
                  convert_to_na(prerequisite_achievement, value = -1)) %>%
  dplyr::arrange(id)

usethis::use_data(achievements, overwrite = TRUE)