data-raw/achievements.R

## 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)
aftonsteps/rstardew documentation built on Oct. 11, 2021, 1:35 a.m.