Adds combine_translations for combining two translations JSON files as list objects

.gitignore

@@ -39,3 +39,7 @@ vignettes/*.pdf
 inst/doc
 
 /docs/
+
+tests/testthat/.DS_Store
+
+tests/.DS_Store

NAMESPACE

@@ -1,11 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
 export(Translator)
+export(combine_translations)
 export(create_translation_file)
 export(init_i18n)
 export(translate_with_google_cloud)
 export(update_lang)
 export(usei18n)
+export(write_json_translations)
 import(glue)
 import(methods)
 import(shiny)

R/preproc.R

@@ -40,7 +40,19 @@ save_to_json <- function(key_expressions, output_path = NULL) {
   )
 
   if (is.null(output_path)) output_path <- "translation.json"
-  write_json(list_to_save, output_path)
+  write_json_translations(list_to_save, output_path)
+}
+
+#' Write a list object as a JSON
+#'
+#' @inheritParams jsonlite::write_json
+#' @inheritDotParams jsonlite::toJSON
+#'
+#' @return None, writes to `path`
+#' @export
+
+write_json_translations <- function(x, path, auto_unbox = TRUE, pretty = TRUE, ...) {
+  jsonlite::write_json(x, path, auto_unbox = auto_unbox, pretty = pretty, ...)
 }
 
 #' Save example i18n file to CSV
@@ -86,6 +98,40 @@ create_translation_file <- function(path, type = "json", handle = "i18n",
   )
 }
 
+#' Combine two translation json files
+#'
+#' @param x \code{chr/list} A path to a file or a list via \link[jsonlite]{fromJSON}
+#' @param y \code{chr/list} A path to a file or a list via \link[jsonlite]{fromJSON}
+#'
+#' @return \code{list} combined translation object
+#' @export
+#'
+
+combine_translations <- function(x, y) {
+  translations <- lapply(list(x = x, y = y), \(.x) {
+    if (is.character(.x)) {
+      if (!file.exists(.x))
+        stop(paste0(.x, " does not exist. Check the path."))
+      jsonlite::read_json(.x)
+    } else
+      .x
+  })
+
+  if (!do.call(identical, sapply(unname(translations), \(.x) unlist(.x$languages), simplify = FALSE))) {
+    stop("x & y must have the same languages")
+  }
+
+
+  combined <- lapply(translations, \(.x) .x$translation)
+  combined <- append(combined$x, combined$y)
+  # Remove duplicated entries based on the source string
+  combined <- combined[!duplicated(sapply(combined, \(.x) .x[[1]]))]
+  translations$x$translation <- combined
+  return(translations$x)
+}
+
+
+
 #' Create translation file addin
 #' @keywords internal
 create_translation_addin <- function() {

tests/testthat/data/translation_additional.json

@@ -0,0 +1,10 @@
+{
+  "cultural_date_format": "%d-%m-%Y",
+  "languages": ["en", "pl"],
+  "translation": [
+      {
+        "en": "Extra translations",
+        "pl": "Dodatkowe tłumaczenie"
+      }
+    ]
+}

tests/testthat/test_preproc.R

@@ -49,6 +49,11 @@ test_that("test save_to_csv", {
   file.remove("tmp.R")
 })
 
+test_that("test combine_translations", {
+  combined <- combine_translations(jsonlite::read_json("data/translation.json"), jsonlite::read_json("data/translation_additional.json"))
+  expect_length(combined$translation, 6)
+})
+
 test_that("create_translation_addin has proper behavior for rstudio addin", {
   temp <- tempfile()
   # Mock the behavior of RStudio API calls
@@ -77,3 +82,4 @@ test_that("create_translation_addin has proper behavior for rstudio addin", {
   )
 
 })
+