Update 158-input-labels to leverage HTML labels

rstudio · Mar 15, 2024 · 276c891 · 276c891
1 parent 71f027e
commit 276c891
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/inst/apps/158-input-labels/app.R b/inst/apps/158-input-labels/app.R
@@ -9,7 +9,7 @@ row <- function(w1, w2) {
   fluidRow(column2(w1), column2(w2))
 }
 
-label_initial <- "An <i>escaped</i> Label"
+label_initial <- HTML("An <i>escaped</i> Label")
 
 ui <- fluidPage(
   p("Everytime you click on the button below, it should add labels to the column that doesn't (currently) have labels, and remove labels from the column that does (currently) have labels. Every label should say: '", tags$b(label_initial, .noWS = "outside"), "'."),
@@ -135,7 +135,7 @@ server <- function(input, output, session) {
   shinyjster::shinyjster_server(input, output, session)
 
   observeEvent(input$update, {
-    label1 <- if (isTRUE(input$update %% 2 == 0)) character(0) else "An <i>escaped</i> Label"
+    label1 <- if (isTRUE(input$update %% 2 == 0)) character(0) else HTML("An <i>escaped</i> Label")
     updateTextInput(session, "textInput1", label = label1)
     updateTextAreaInput(session, "textAreaInput1", label = label1)
     updateNumericInput(session, "numericInput1", label = label1)
@@ -149,7 +149,7 @@ server <- function(input, output, session) {
     updateCheckboxGroupInput(session, "checkboxGroupInput1", label = label1)
     updateDateInput(session, "dateInput1", label = label1)
 
-    label2 <- if (isTRUE(input$update %% 2 > 0)) character(0) else "An <i>escaped</i> Label"
+    label2 <- if (isTRUE(input$update %% 2 > 0)) character(0) else HTML("An <i>escaped</i> Label")
     updateTextInput(session, "textInput2", label = label2)
     updateTextAreaInput(session, "textAreaInput2", label = label2)
     updateNumericInput(session, "numericInput2", label = label2)