Uses summary/details to show original strings

eliocamp · Jul 12, 2024 · 25aa9d3 · 25aa9d3
1 parent ff65977
commit 25aa9d3
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/rd-translate.R b/R/rd-translate.R
@@ -28,7 +28,16 @@ translate <- function(original, translation) {
       translation_exists <- !is.null(translation[[section]]$translation)
 
       if (version_matches && translation_exists) {
-        original[[section]] <- translation[[section]]$translation
+        if (section %in% c("examples", "title")) {
+          original[[section]] <- paste0(
+            translation[[section]]$translation,
+            "\\if{html}{\\out{<details style='display:inline'> <summary>} 🌐 \\out{</summary>} ",
+            original[[section]]$original,
+            "\\out{</details>}}")
+        } else {
+          original[[section]] <- translation[[section]]$translation
+        }
+
       } else {
         # If the translation is out of date?
         # For now, keep the original