Add translation capability to question buttons

- button.questionsubmit and button.questiontryagain - localizes after UI output changes
rstudio · gadenbuie · Jan 15, 2021 · Sep 30, 2020 · Oct 1, 2020 · Oct 1, 2020
commit b1a60449c3f3f79735cefc84402991d68254e0ab
diff --git a/R/i18n.R b/R/i18n.R
@@ -130,7 +130,9 @@ i18n_translations <- function() {
           continue = "Continue",
           submitanswer = "Submit Answer",
           previoustopic = "Previous Topic",
-          nexttopic = "Next Topic"
+          nexttopic = "Next Topic",
+          questionsubmit = "Submit Answer",
+          questiontryagain = "Try Again"
         ),
         text = list(
           startover = "Start Over",
@@ -148,8 +150,10 @@ i18n_translations <- function() {
           startover = "Recommencer",
           continue = "Continuer",
           submitanswer = "Soumettre",
-          previoustopic = "Chapitre pr\u00e9c\u00e9dent",
-          nexttopic = "Chapitre Suivant"
+          previoustopic = "Chapitre Pr\u00e9c\u00e9dent",
+          nexttopic = "Chapitre Suivant",
+          questionsubmit = "Soumettre",
+          questiontryagain = "R\u00e9essayer"
         ),
         text = list(
           startover = "Recommencer",
@@ -168,7 +172,9 @@ i18n_translations <- function() {
           continue = "\u2705",
           submitanswer = "\U0001f197",
           previoustopic = "\u2b05",
-          nexttopic = "\u27a1"
+          nexttopic = "\u27a1",
+          questionsubmit = "\U0001f197",
+          questiontryagain = "\U0001f501"
         ),
         text = list(
           startover = "\u23ee",

diff --git a/R/quiz.R b/R/quiz.R
@@ -565,14 +565,14 @@ question_button_label <- function(question, label_type = "submit", is_valid = TR
   action_button_id <- NS(question$ids$question)("action_button")
 
   if (label_type == "submit") {
-    button <- actionButton(action_button_id, button_label, class = default_class)
+    button <- actionButton(action_button_id, button_label, class = default_class, `data-i18n` = "button.questionsubmit")
     if (!is_valid) {
       button <- disable_all_tags(button)
     }
     button
   } else if (label_type == "try_again") {
     mutate_tags(
-      actionButton(action_button_id, button_label, class = warning_class),
+      actionButton(action_button_id, button_label, class = warning_class, `data-i18n` = "button.questiontryagain"),
       paste0("#", action_button_id),
       function(ele) {
         ele$attribs$class <- str_remove(ele$attribs$class, "\\s+btn-default")

diff --git a/inst/lib/i18n/learnr-i18n-init.js b/inst/lib/i18n/learnr-i18n-init.js
@@ -57,6 +57,11 @@ $(document).on("shiny:sessioninitialized", function() {
     $(selector).localize(opts);
   }
 
+  // localize question buttons when shown
+  $(document).on('shiny:value', '.tutorial-question', function(ev) {
+    setTimeout(function() { $(ev.target).localize() }, 0);
+  });
+
   function localizeHandler(x) {
     var selector,language;
     if (

diff --git a/sandbox/multilang.Rmd b/sandbox/multilang.Rmd
@@ -14,6 +14,8 @@ output:
           runcode: Run!
           hints: Hint!
           startover: Redo!
+          questionsubmit: Let's See
+          questiontryagain: Retry
       # es: tutorial_es.json
       es:
         button:
@@ -36,7 +38,6 @@ jsonlite::write_json(
 ```
 
 
-
 ```{r setup, include=FALSE}
 library(learnr)
 library(nycflights13)
@@ -61,7 +62,10 @@ tutorial_options(
 This is the intro to the whole ball of wax.
 
 ```{r context="render"}
-shiny::selectInput("language", "Choose a Language", choices = c("English" = "en", "French" = "fr", "Spanish" = "es"))
+shiny::selectInput(
+  "language", "Choose a Language", 
+  choices = c("English" = "en", "French" = "fr", "Spanish" = "es", "Emoji" = "emo")
+)
 ```
 
 ```{r context="server"}