data-raw/01-locales.R

In rich-iannone/i18n: Internationalization Data from the 'Unicode CLDR' in Tabular Form

library(dplyr)
library(jsonlite)
library(readr)

source("data-raw/00-version_tag.R")

all_locales <- 
  file.path(
    "https://raw.githubusercontent.com/unicode-org/cldr-json",
    version_tag, "cldr-json/cldr-core", 
    "availableLocales.json"
  )

all_locales_data <-
  jsonlite::fromJSON(
    all_locales,
    flatten = TRUE,
    simplifyDataFrame = TRUE
  )

all_locales <- all_locales_data$availableLocales$full

all_locales_tbl <-
  dplyr::tibble(
    locale_code = all_locales
  )

readr::write_rds(
  all_locales,
  file = "data-raw/all_locales.rds",
  compress = "xz"
)

rm(all_locales_tbl, all_locales_data)