data-raw/12-script_metadata.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")

script_meta <- 
  file.path(
    "https://raw.githubusercontent.com/unicode-org/cldr-json/main/cldr-json/cldr-core", 
    "scriptMetadata.json"
  )

script_metadata <-
  jsonlite::fromJSON(
    script_meta,
    flatten = TRUE,
    simplifyDataFrame = TRUE
  )

script_metadata_list <- script_metadata$scriptMetadata

script_names <- names(script_metadata_list)

script_metadata_tbl <- dplyr::tibble()

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

for (i in seq_along(script_names)) {
  
  sample_char <- script_metadata_list[[script_names[i]]]$sampleChar
  rank <- script_metadata_list[[script_names[i]]]$rank
  rtl <- script_metadata_list[[script_names[i]]]$rtl
  lb_letters <- script_metadata_list[[script_names[i]]]$lbLetters
  has_case <- script_metadata_list[[script_names[i]]]$hasCase
  shaping_req <- script_metadata_list[[script_names[i]]]$shapingReq
  ime <- script_metadata_list[[script_names[i]]]$ime
  density <- script_metadata_list[[script_names[i]]]$density
  origin_country <- script_metadata_list[[script_names[i]]]$originCountry
  likely_lang <- script_metadata_list[[script_names[i]]]$likelyLanguage
  
  # table row
  script_metadata_row_i <-
    dplyr::tibble(
      script = script_names[i],
      sample_char = sample_char,
      rank = rank,
      rtl = rtl,
      lb_letters = lb_letters, 
      has_case = has_case,
      shaping_req = shaping_req,
      ime = ime,
      density = density,
      origin_country = origin_country,
      likely_lang = likely_lang
    )
  
  # Append rows to main table
  script_metadata_tbl <- dplyr::bind_rows(script_metadata_tbl, script_metadata_row_i)
  
  pb$tick()
}
  
readr::write_rds(
  script_metadata_tbl,
  file = "data-raw/script_metadata.rds",
  compress = "xz"
)

rm(
  script_meta, script_metadata, script_metadata_list,
  script_names, script_metadata_tbl,
  sample_char, rank, rtl, lb_letters, has_case, shaping_req,
  ime, density, origin_country, likely_lang,
  script_metadata_row_i, i, pb
)