multiInput is no longer renders HTML tags inside values

[evgeniyftw]

HTML Tags inside choiceNames in multiInput() are no longer resolved.
Reproducible example:

library(shiny)

ui <- fluidPage(
  fluidRow(uiOutput("mmm"))
)

server <- function(input, output) {

  output$mmm <- renderUI({
    shinyWidgets::multiInput(
      inputId = "colsToModel",
      label = all_cols[[1]],
      choices = NULL,
      # Here it stops working
      choiceNames = "<b>value1</b>",
      choiceValues = "value1",
      width = 'auto',
      options = list(
        non_selected_header = "Choose between:",
        selected_header = "You have selected:"
      ))
  })
}

shinyApp(ui = ui, server = server)

[pvictor]

Thanks for reporting the issue. It's fixed in dev version, please re-install from GitHub.

Victor

[seepepdl1]

Hello,

I still have exactly the same problem with multiInput in my Docker environment. All is working fine within my Rstudio environment. But when i switch to my Docker container, built on top of the rocker/shiny-verse image, it fails.

This appends with all the versions of shinyWidgets i have tried in my Docker image, included the last one on CRAN and the current one from Github.

My goal is to put SVG icons on each choices. I will be grateful if you have a solution !

Thanks !

[evgeniyftw]

Hi @seepepdl1, I'm using a version from GitHub and can confirm the bug is solved. I am also using icons in the multiInput.
Please double-check your Docker environment.