How to translate selectInput ? Getting error names vector error about shiny.i18n

[jakubsob]

Hello @Miracle-90! Thanks for using the package and submitting an issue. The reason why you're getting 3 elements is that browser side translation wraps translated elements with a span tag with information on currently selected language. Out-of-the-box shiny::selectInput doesn't allow you to use html tags as choices. In this case you could either use server side translation or use shinyWidgets::pickerInput which allows you to do so. Please check out the following example with both approaches to see whether this solves your issue.

library(shiny)
library(shiny.i18n)
library(shinyWidgets)
i18n <- Translator$new(translation_csvs_path = ".")
# Set translation language of your choice
i18n$set_translation_language("pl")

ui <- fluidPage(
  usei18n(i18n),
  tabsetPanel(
    id = "tabs",
    type = "tabs",
    tabPanel(
      "Browser side translation",
      value = 1,
      pickerInput(
        inputId = "browser_translation",
        label = "", 
        choices = c("pdregion"),
        width = "500px",
        choicesOpt = list(
          content = c(as.character(i18n$t("Population density of the region")))
        )
      )
    ),
    tabPanel(
      "Server-side translation",
      value = 2,
      uiOutput("tab_content")
    )
  )
)

server <- function(input, output, session) {
  output$tab_content <- renderUI({
    selectInput(
      inputId = "server_translation",
      label = "",
      width = "500px",
      choices = setNames(c('pdregion'), i18n$t("Population density of the region"))
    )
  })
}

shinyApp(ui = ui, server = server)

With a translation dictionary being:

en,pl
Population density of the region,Y