Update selected data in select_group_ui

[yensmora]

I have a Shiny app that uses select_group_ui and select_group_server. I would like to have two buttons: one for the user to save a default selection and another to load it whenever they want. What I want is that when the 'load' button is pressed, the filters display the options saved (I suppose with the selected property). How could I do this?

Thank you very much.

[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)

[EricArcher]

I have a similar problem where I would like to provide the user with a button to reset multiple fields to predefined defaults. As a test, I've modified the code above, but it seems to only work for one of the two values I try to set (the first). If I remove setting Manufacturer, then it will set the lone value of Type, but if I have both, it will only set the first. However, the first time I press set_sel, I see Type change to "Large" quickly, then go back to blank.

Is it possible to use shinyWidgets::updateVirtualSelect() and somehow iterate through the fields? I tried, but realized that I don't know how to form their IDs to reference.

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 and Type"),
  verbatimTextOutput("rv"),
  verbatimTextOutput("res_inputs"),
  verbatimTextOutput("res")
)

server <- function(input, output, session) {
  rv <- reactiveValues(
    selected = list(
      Manufacturer = "Chevrolet",
      Type = "Van"
    )
  )

  res <- select_group_server(
    id = "my-filters",
    data = MASS::Cars93,
    vars = c("Manufacturer", "Type"),
    selected = reactive(rv$selected)
  )

  output$rv <- renderPrint(rv)
  output$res_inputs <- renderPrint(attr(res(), 'inputs'))
  output$res <- renderPrint(res())

  observeEvent(input$set_sel, {
    rv$selected <- list(Manufacturer = "Buick", Type = 'Large')
  })
}

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

[EricArcher]

I've solved the problem. Each field seems to have an id that is formed as 'id-fieldname', e.g, 'my-filter-Manufacturer'. These can be updated with shinyWidgets::updateVirtualSelect() as below:

library(shiny)
library(datamods)

default <- c(Manufacturer = 'Buick', Type = 'Large')

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 and Type"),
  verbatimTextOutput("res_inputs"),
  verbatimTextOutput("field1"),
  verbatimTextOutput("field2"),
  verbatimTextOutput("res")
)

server <- function(input, output, session) {
  res <- datamods::select_group_server(
    id = "my-filters",
    data = MASS::Cars93,
    vars = c("Manufacturer", "Type")
  )
  
  output$res_inputs <- renderPrint(attr(res(), 'inputs'))
  output$field1 <- renderPrint(input[["my-filters-Manufacturer"]])
  output$field2 <- renderPrint(input[["my-filters-Type"]])
  output$res <- renderPrint(str(res()))
  
  observeEvent(input$set_sel, {
    purrr::imap(default, function(value, id){
      shinyWidgets::updateVirtualSelect(
        inputId = paste0('my-filters-', id),
        selected = value
      )
    })
  })
}

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