data-raw/damage.R

In callowy/flames: Maplestory Flame Database Toolkit

## Damage tier values
library(tidyverse)
library(usethis)

damage <- tibble(
  "LV" = seq(70, 200, 10),
  "T1" = rep(1, length("LV")),
  "T2" = rep(2, length("LV")),
  "T3" = rep(3, length("LV")),
  "T4" = rep(4, length("LV")),
  "T5" = rep(5, length("LV")),
  "T6" = rep(6, length("LV")),
  "T7" = rep(7, length("LV"))
)

write_csv(damage, "data-raw/damage.csv")
usethis::use_data(damage, overwrite = TRUE)