library(dplyr)
library(jsonlite)
library(readr)
library(progress)
source("data-raw/00-version_tag.R")
source("data-raw/01-locales.R")
tz_formats_tbl <- dplyr::tibble()
pb <- progress_bar$new(total = length(all_locales))
for (i in seq_along(all_locales)) {
tz_formats <-
file.path(
"https://raw.githubusercontent.com/unicode-org/cldr-json",
version_tag, "cldr-json/cldr-dates-full/main",
all_locales[i],
"timeZoneNames.json"
)
tz_formats_data <-
jsonlite::fromJSON(
tz_formats,
flatten = TRUE,
simplifyDataFrame = TRUE
)
tz_formats_all <- tz_formats_data$main[[1]]$dates$timeZoneNames
hour_format <- tz_formats_all$hourFormat
gmt_format <- tz_formats_all$gmtFormat
gmt_zero_format <- tz_formats_all$gmtZeroFormat
region_format <- tz_formats_all$regionFormat
region_format_daylight <- tz_formats_all$`regionFormat-type-daylight`
region_format_standard <- tz_formats_all$`regionFormat-type-standard`
region_format_fallback <- tz_formats_all$fallbackFormat
tz_formats_tbl_row_i <-
dplyr::tibble(
locale = all_locales[i],
hour_format = hour_format,
gmt_format = gmt_format,
gmt_zero_format = gmt_zero_format,
region_format = region_format,
region_format_daylight = region_format_daylight,
region_format_standard = region_format_standard,
region_format_fallback = region_format_fallback
)
# Append row to main table
tz_formats_tbl <- dplyr::bind_rows(tz_formats_tbl, tz_formats_tbl_row_i)
pb$tick()
}
readr::write_rds(
tz_formats_tbl,
file = "data-raw/tz_formats.rds",
compress = "xz"
)
rm(
tz_formats_tbl, tz_formats, tz_formats_data, tz_formats_all,
hour_format, gmt_format, gmt_zero_format, region_format,
region_format_daylight, region_format_standard, region_format_fallback,
tz_formats_tbl_row_i, i, pb
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.