Ability to provide selected choices in select_group_ui

[filipwastberg]

It would be neat to be able to provide selected values for each virtualSelectInput like this:

select_group_ui(
          id = "my-filters",
          params = list(
            list(inputId = "Manufacturer", label = "Manufacturer:", selected = "Acura"),
            list(inputId = "Type", label = "Type:")
          ),
          vs_args = list(
            disableSelectAll = FALSE
            )
        )

This way users could get a more custom made start view of an app.

[pvictor]

Hello,
In dev version you can set selected values from the server, see :

library(shiny)
library(datamods)

ui <- fluidPage(
  select_group_ui(
    id = "my-filters",
    params = list(
      list(inputId = "Manufacturer", label = "Manufacturer:"),
      list(inputId = "Type", label = "Type:")
    ),
    vs_args = list(
      disableSelectAll = FALSE
    )
  ),
  actionButton("set_sel", "Set Manufacturer=Acura"),
  verbatimTextOutput("res")
)

server <- function(input, output, session) {
  # We use a reactiveValue so that it can be updated
  rv <- reactiveValues(selected = list(Manufacturer = "Audi")) # for init
  res_r <- select_group_server(
    id = "my-filters",
    data = reactive(MASS::Cars93),
    vars = reactive(c("Manufacturer", "Type")),
    selected_r = reactive(rv$selected)
  )
  output$res <- renderPrint({
    res_r()
  })
  observeEvent(input$set_sel, {
    rv$selected <- list(Manufacturer = "Acura")
  })
}

if (interactive())
  shinyApp(ui, server)

[PaulC91]

Hi @pvictor. I noticed that providing default selections for more than 1 input is not working. For example, adding Type = "Compact" to the init rv$selected list does not set a selection of "Compact" on load.