description not showing in `virtualSelectInput`

[ocelhay]

Thanks for your fantastic package!

I was expecting that a description would show in the virtualSelectInput but it's not the case. Any idea?

library(shiny)

ui <- fluidPage(

  shinyWidgets::virtualSelectInput(
    "progression_facet_row",
    "Facet by:",
    choices = shinyWidgets::prepare_choices(
      tibble::tibble(
        label = c("None", "Site", "Race/ethnicity", "Household Income", "Education Household", "Education Primary Caregiver"),
        value = c("none", "site", "race_ethnicity", "income_household", "education_household", "education_primcg"),
        description = c("", "", rep("Pediatric / Pediatric and Caregiver only", 4))
      ),
      label = label,
      value = value,
      description = description
    ),
    selected = "none",
    multiple = FALSE
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

[pvictor]

Currently you have to explicitly set virtualSelectInput(..., hasOptionDescription = TRUE) to display description text under choices labels. In future, maybe we can automate that if choices are made with prepare_choices() and have a description.

[ocelhay]

Thanks! I think that would make sense to automate this if you have a chance.