data-raw/04-dates.R

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

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

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

pb <- progress_bar$new(total = length(all_locales))

dates_tbl <- dplyr::tibble()

for (i in seq_along(all_locales)) {
  
  dates_gregorian_json_url_locale <- 
    file.path(
      "https://raw.githubusercontent.com/unicode-org/cldr-json",
      version_tag, "cldr-json/cldr-dates-full/main", 
      all_locales[i], 
      "ca-gregorian.json"
    )
  
  dates_gregorian_data <-
    jsonlite::fromJSON(
      dates_gregorian_json_url_locale,
      flatten = TRUE,
      simplifyDataFrame = TRUE
    )
  
  #
  # Months
  #
  
  # months_format_abbrev
  months_format_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$format$abbreviated
  
  # months_format_narrow
  months_format_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$format$narrow
  
  # months_format_wide
  months_format_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$format$wide
  
  # months_standalone_abbrev
  months_standalone_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$`stand-alone`$abbreviated
  
  # months_standalone_narrow
  months_standalone_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$`stand-alone`$narrow
  
  # months_standalone_wide
  months_standalone_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$months$`stand-alone`$wide
  
  #
  # Days
  #
  
  # days_format_abbrev
  days_format_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$format$abbreviated
  
  # days_format_narrow
  days_format_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$format$narrow
  
  # days_format_short
  days_format_short <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$format$short
  
  # days_format_wide
  days_format_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$format$wide
  
  # days_standalone_abbrev
  days_standalone_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$`stand-alone`$abbreviated
  
  # days_standalone_narrow
  days_standalone_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$`stand-alone`$narrow
  
  # days_standalone_short
  days_standalone_short <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$`stand-alone`$short
  
  # days_standalone_wide
  days_standalone_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$days$`stand-alone`$wide
  
  #
  # Quarters
  #
  
  # quarters_format_abbrev
  quarters_format_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$format$abbreviated
  
  # quarters_format_narrow
  quarters_format_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$format$narrow
  
  # quarters_format_wide
  quarters_format_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$format$wide
  
  # quarters_standalone_abbrev
  quarters_standalone_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$`stand-alone`$abbreviated
  
  # quarters_standalone_narrow
  quarters_standalone_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$`stand-alone`$narrow
  
  # quarters_standalone_wide
  quarters_standalone_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$quarters$`stand-alone`$wide
  
  #
  # Day Periods
  #
  
  # dayperiods_format_abbrev
  dayperiods_format_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$format$abbreviated
  
  # dayperiods_format_narrow
  dayperiods_format_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$format$narrow
  
  # dayperiods_format_wide
  dayperiods_format_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$format$wide
  
  # dayperiods_standalone_abbrev
  dayperiods_standalone_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$`stand-alone`$abbreviated
  
  # dayperiods_standalone_narrow
  dayperiods_standalone_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$`stand-alone`$narrow
  
  # dayperiods_standalone_wide
  dayperiods_standalone_wide <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dayPeriods$`stand-alone`$wide
  
  #
  # Eras
  #
  
  # eras_abbrev
  eras_abbrev <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$eras$eraAbbr
  
  # eras_names
  eras_names <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$eras$eraNames
  
  # eras_narrow
  eras_narrow <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$eras$eraNarrow
  
  #
  # Formats
  #
  
  # date_formats
  date_formats <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateFormats
  
  # date_skeletons
  date_skeletons <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateSkeletons
  
  # time_formats
  time_formats <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$timeFormats
  
  # time_skeletons
  time_skeletons <- 
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$timeSkeletons
  
  # date_time_patterns
  date_time_patterns <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateTimeFormats[1:4]
  
  # date_time_available_formats
  date_time_available_formats <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateTimeFormats[[5]]
  
  # date_time_append_items
  date_time_append_items <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateTimeFormats$appendItems
  
  # date_time_interval_formats
  date_time_interval_formats <-
    dates_gregorian_data$main[[1]]$dates$calendars$gregorian$dateTimeFormats$intervalFormats
  
  # Generate row
  dates_tbl_row <-
    dplyr::tibble(
      locale = all_locales[i],
      months_format_abbrev = list(value = months_format_abbrev),
      months_format_narrow = list(value = months_format_narrow),
      months_format_wide = list(value = months_format_wide),
      months_standalone_abbrev = list(value = months_standalone_abbrev),
      months_standalone_narrow = list(value = months_standalone_narrow),
      months_standalone_wide = list(value = months_standalone_wide),
      days_format_abbrev = list(value = days_format_abbrev),
      days_format_narrow = list(value = days_format_narrow),
      days_format_short = list(value = days_format_short),
      days_format_wide = list(value = days_format_wide),
      days_standalone_abbrev = list(value = days_standalone_abbrev),
      days_standalone_narrow = list(value = days_standalone_narrow),
      days_standalone_short = list(value = days_standalone_short),
      days_standalone_wide = list(value = days_standalone_wide),
      quarters_format_abbrev = list(value = quarters_format_abbrev),
      quarters_format_narrow = list(value = quarters_format_narrow),
      quarters_format_wide = list(value = quarters_format_wide),
      quarters_standalone_abbrev = list(value = quarters_standalone_abbrev),
      quarters_standalone_narrow = list(value = quarters_standalone_narrow),
      quarters_standalone_wide = list(value = quarters_standalone_wide),
      dayperiods_format_abbrev = list(value = dayperiods_format_abbrev),
      dayperiods_format_narrow = list(value = dayperiods_format_narrow),
      dayperiods_format_wide = list(value = dayperiods_format_wide),
      dayperiods_standalone_abbrev = list(value = dayperiods_standalone_abbrev),
      dayperiods_standalone_narrow = list(value = dayperiods_standalone_narrow),
      dayperiods_standalone_wide = list(value = dayperiods_standalone_wide),
      eras_abbrev = list(value = eras_abbrev),
      eras_names = list(value = eras_names),
      eras_narrow = list(value = eras_narrow),
      date_formats = list(value = date_formats),
      date_skeletons = list(value = date_skeletons),
      time_formats = list(value = time_formats),
      time_skeletons = list(value = time_skeletons),
      date_time_patterns = list(value = date_time_patterns),
      date_time_available_formats = list(value = date_time_available_formats),
      date_time_append_items = list(value = date_time_append_items),
      date_time_interval_formats = list(value = date_time_interval_formats)
    )
  
  # Append row to main table
  dates_tbl <- dplyr::bind_rows(dates_tbl, dates_tbl_row)
  
  pb$tick()
}

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

rm(
  dates_tbl, dates_gregorian_json_url_locale, dates_gregorian_data,
  months_format_abbrev, months_format_narrow, months_format_wide, 
  months_standalone_abbrev, months_standalone_narrow, months_standalone_wide,
  days_format_abbrev, days_format_narrow, days_format_short, days_format_wide,
  days_standalone_abbrev, days_standalone_narrow,
  days_standalone_short, days_standalone_wide,
  quarters_format_abbrev, quarters_format_narrow, quarters_format_wide, 
  quarters_standalone_abbrev, quarters_standalone_narrow,
  quarters_standalone_wide,
  dayperiods_format_abbrev, dayperiods_format_narrow, dayperiods_format_wide,
  dayperiods_standalone_abbrev, dayperiods_standalone_narrow,
  dayperiods_standalone_wide,
  eras_abbrev, eras_names, eras_narrow,
  date_formats, date_skeletons, time_formats,
  time_skeletons, date_time_patterns, date_time_available_formats,
  date_time_append_items, date_time_interval_formats,
  dates_tbl_row, i, pb
)