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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.