Custom label and html display in server-side selectize elements

[akaever]

In the current shiny CRAN version, it's possible to specify values, labels, and displayed html for server-side selectize elements separately. As described in

https://shiny.rstudio.com/articles/selectize.html

Looks like this option was dropped in the current github version, which would be a pity. Here's an example working with the CRAN version:

library(shiny)

runApp(list(
  ui = bootstrapPage(
    selectizeInput("sel1", label = "Selectize 1", choices = NULL)
  ),
  
  server = function(input, output, session) {
    valueStrs <- as.character(1:10)
    labelStrs <- paste("Label", valueStrs)
    htmlStrs <- paste0("<b>", valueStrs, "</b>")
    
    choiceFrame <- data.frame(value = valueStrs, label = labelStrs, 
                              html = htmlStrs, stringsAsFactors = FALSE)
    selected <- valueStrs[2]
    
    updateSelectizeInput(
      session, "sel1", server = TRUE, 
      choices = choiceFrame, 
      selected = selected, 
      
      options = list(render = I(
        '{ option: function(item, escape) {
            return "<div>Select " + item.html + "</div>";
            }
         }'
      ))
    )
    
    observe({
      print(input$sel1)
    })
    
  }
))

The dev version seems to interpret the choices as list and tries to group according to the column names (which is the documented behavior). One could specify some HTML as names(choices) and use a custom render function to display this (item.label). However, the escaped HTML is then also shown as label...

# test with github version
runApp(list(
  ui = bootstrapPage(
    selectizeInput("sel1", label = "Selectize 1", choices = NULL)
  ),
  
  server = function(input, output, session) {
    valueStrs <- as.character(1:10)
    names(valueStrs) <- paste0("<b>", valueStrs, "</b>")
    selected <- valueStrs[2]
    
    updateSelectizeInput(
      session, "sel1", server = TRUE, 
      choices = valueStrs, 
      selected = selected, 
      
      options = list(render = I(
        '{ option: function(item, escape) {
            return "<div>Select " + item.label + "</div>";
            }
         }'
      ))
    )
    
    observe({
      print(input$sel1)
    })
    
  }
))

Is there a way to get back to the old behavior or to specify more data (columns) which could be used in the render function to generate HTML?

Thanks

[jcheng5]

Adding this to the 1.2 milestone as it looks like an unintended regression.