misc/translations/translation_dashboard_2.R

In acornamr/acorn-dashboard: A Dashboard for ACORN AMR Data

library(RJSONIO)
library(tidyverse)
library(readxl)
library(writexl)

# JSON to Excel files ----
# json_file = RJSONIO::fromJSON("./misc/translations/translation_excel.json")
# 
# trans <- json_file$translation
# trans_df <- plyr::ldply(trans)
# 
# trans_df |> 
#   select(en, fr) |> 
#   writexl::write_xlsx(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_fr.xlsx")
# 
# trans_df |> 
#   select(en, la) |> 
#   writexl::write_xlsx(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_la.xlsx")
# 
# trans_df |> 
#   select(en, kh) |> 
#   writexl::write_xlsx(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_kh.xlsx")
# 
# trans_df |> 
#   select(en, vn) |> 
#   writexl::write_xlsx(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_vn.xlsx")
# 
# trans_df |> 
#   select(en, ba) |> 
#   writexl::write_xlsx(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_ba.xlsx")



# Excel files to JSON ----
en_fr <- readxl::read_excel(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_fr_maj.xlsx")
en_la <- readxl::read_excel(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_la_maj.xlsx")
en_kh <- readxl::read_excel(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_kh_maj.xlsx")
en_vn <- readxl::read_excel(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_vn_maj.xlsx")
en_ba <- readxl::read_excel(path = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/misc/translations/en_ba_maj.xlsx")

if(any(en_fr$en != en_la$en) | any(en_la$en != en_kh$en) | any(en_kh$en != en_vn$en) | any(en_vn$en != en_ba$en))  warning("Excel file en columns do not match!")

# ===============================================================================
# IMPORTANT: once updated, replace translation.json in the www/translations folder
# ===============================================================================

list(languages = c("en", "fr", "la", "kh", "vn", "ba"),
     translation = bind_cols(en_fr, 
                             en_la %>% select(la),
                             en_kh %>% select(kh),
                             en_vn %>% select(vn),
                             en_ba %>% select(ba)) |> 
       purrr::transpose()) |> 
  RJSONIO::toJSON(pretty = TRUE) |> 
  write(file = "/Users/olivier/Documents/Projets/ACORN/acorn-dashboard/inst/acorn/www/translations/translation.json")