data-raw/date-symbols.R

In hadley/readr: Read Rectangular Text Data

library(stringi)

locs <- stri_locale_list()
base <- unique(stri_split_fixed(locs, "_", n = 2, simplify = TRUE)[, 1])

locale_info <- function(x) {
  full <- stri_datetime_symbols(x, context = "format", width = "wide")
  abbr <- stri_datetime_symbols(x, context = "format", width = "abbreviated")

  date_names(
    mon = full$Month,
    mon_ab = abbr$Month,
    day = full$Weekday,
    day_ab = abbr$Weekday,
    am_pm = full$AmPm
  )
}

date_symbols <- lapply(base, locale_info)
names(date_symbols) <- base

devtools::use_data(date_symbols, internal = TRUE, overwrite = TRUE)