labelRenderer property in virtualSearchInput?

[moturoa]

In this example we see the use of the labelRenderer option. I was wondering if you know whether it can be used from virtualSelectInput, as the option should be passed through ...

Non-working example with selectizeInput for reference:

library(shiny)
chcs <- rownames(mtcars)

ui <- fluidPage(theme = bslib::bs_theme(version = 5),

  shinyWidgets::virtualSelectInput("sel1", "Select car (virtual select)",
                             choices = chcs,
                             labelRenderer = I('function(data){
                                                  return "<span style = \'font-size: 3em;\'>" + data.label + "</span>";
                                                }')
                             ),
  
  selectizeInput("sel2", "Select car (selectinput)", choices = chcs,
              options = list(
                render = I('{
                              item: function(data){
                                    return "<span style = \'color:red;\'>" + data.label + "</span>";
                              },
                              option: function(data){
                                    return "<div style = \'color: blue;\'>" + data.label + "</div>";
                              }
                           }
                           ')
              )
              )
)
server <- function(input, output, session) {}
shinyApp(ui, server)

Thank you!

[moturoa]

I need to add that making the HTML beforehand, and using argument html = TRUE renders the labels nicely however using search = TRUE is weird because it then displays raw HTML as a search result.

library(shiny)
library(shinyWidgets)

chcs <- paste("<span style = 'color:red;' class = 'myclass';>",rownames(mtcars),"</span>")

ui <- fluidPage(
  tags$h4("HINT: type 's'"),
  virtualSelectInput("sel1", "Select car", choices = chcs, html = TRUE, search = TRUE,
                     showOptionsOnlyOnSearch = FALSE,
                     markSearchResults = TRUE
                     )  
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

[pvictor]

Hello,

For the moment, it is not possible to use the labelRenderer option: no javascript code passed as an argument is executed.
I see the issue but labelRenderer doesn't seems to fix it according to that issue sa-si-dev/virtual-select#249, this seems fixed with a PR but not released yet.
I suggest waiting for the next release to see if the problem has been corrected, and then we can look at labelRenderer if needed.

Victor

[pvictor]

I have updated virtual-select-plugin to 1.0.38, the issue seems fixed, install from GitHub to try and let me know if it's good for you.

[moturoa]

Yes that solved the issue, thank you!