Define uiText

inbo · Jan 9, 2025 · e82b573 · e82b573
1 parent fd5d588
commit e82b573
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/alienSpecies/inst/app/serverFiles/serverChecklist.R b/alienSpecies/inst/app/serverFiles/serverChecklist.R
@@ -346,7 +346,10 @@ output$exoten_legendText <- renderUI({
 
 ### Table overview
 ### -----------------
-
+uiText <- reactive({
+  results$translations
+})
+
 output$exoten_overviewLink <- renderUI({
 
   actionLink(inputId = "exoten_overview", 
@@ -357,7 +360,7 @@ output$exoten_overviewLink <- renderUI({
 
 output$exoten_overviewText <- renderUI({
 
-   tags$em(HTML(translate(reactive(results$translations), "tableIndicators")$description))
+   tags$em(HTML(translate(uiText(), "tableIndicators")$description))
 
   })