selectedLabelRenderer in virtualSelectInput not working

[NathanMEvans]

I am trying to use a function to define the text shown in the selected label but it is not functioning like the labelRendered

ui <-fluidPage(
  HTML("<script>
testFunction = function(data) {
  return 'test';
}</script>"),
  virtualSelectInput(
    inputId = "id",
    label = "test_select",
    choices=c("one", "two", "three"),
    selectedLabelRenderer = 'testFunction',
    labelRenderer = 'testFunction',
  ),
)

[pvictor]

selectedLabelRenderer is not yet implemented, I'll look into it soon.

Victor

[pvictor]

If you re-install from GitHub, you can try :

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  tags$script(
    "labelRenderer = function(data) {  return 'Label: ' + data.value; }",
    "selectedLabelRenderer = function(data) {  return 'Selected: ' + data.value; }"
  ),
  virtualSelectInput(
    inputId = "id",
    label = "test_select",
    choices = c("one", "two", "three"),
    selectedLabelRenderer = "selectedLabelRenderer",
    labelRenderer = "labelRenderer",
  )
)

shinyApp(ui, function(...) {})