Error in `virtualSelectInput` when `disabledOptions` is length 1

[asbatestw]

virtualSelectInput leads to an error in virtual-select JS when disabling only 1 option.

Reprex:

ui <- list(
  shinyWidgets::virtualSelectInput(
    inputId = "test",
    label = "test",
    choices = c("A" = "a", "B" = "b", "C" = "c"),
    selected = "a",
    disabledOptions = c("b", "c") # this works
    # disabledOptions = "b" # this doesn't
  )

)

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

shiny::shinyApp(ui, server)

This app produces the following output (just the label)

And a corresponding browser console error

I think the issue is the auto_unbox = TRUE in this line. With auto_unbox = FALSE the vector gets turned into an array which is what virtual-select expects.

[asbatestw]

Wrapping in I works (thanks @tanho63 !). So if changing auto_unbox would affect other things this is a potential solution. I would definitely recommend adding this in the docs though because it's not obvious.

ui <- list(
  shinyWidgets::virtualSelectInput(
    inputId = "test",
    label = "test",
    choices = c("A" = "a", "B" = "b", "C" = "c"),
    selected = "a",
    disabledOptions = I(c("b"))
  )

)

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

shiny::shinyApp(ui, server)

[pvictor]

Yes, or you can use a list :

ui <- list(
  shinyWidgets::virtualSelectInput(
    inputId = "test",
    label = "test",
    choices = c("A" = "a", "B" = "b", "C" = "c"),
    selected = "a",
    disabledOptions = list("b")
  )
  
)

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

shiny::shinyApp(ui, server)

because, like you pointed we need an array in JavaScript :

jsonlite::toJSON(list("a"), auto_unbox = TRUE)
# ["a"]