Change the value of a smart select input on the client

Change the value of a smart select input on the client

updateF7SmartSelect(
  inputId,
  selected = NULL,
  choices = NULL,
  ...,
  multiple = NULL,
  maxLength = NULL,
  session = shiny::getDefaultReactiveDomain()
)

Arguments

inputId	The id of the input object.
selected	The new value for the input.
choices	The new choices.
...	Parameters used to update the smart select, use same arguments as in f7SmartSelect.
multiple	Whether to allow multiple values.
maxLength	Maximum items to select when multiple is TRUE.
session	The Shiny session object, usually the default value will suffice.

Examples

if (interactive()) {
 library(shiny)
 library(shinyMobile)

 shinyApp(
  ui = f7Page(
    title = "My app",
    f7SingleLayout(
      navbar = f7Navbar(title = "Update f7SmartSelect"),
      f7Button("updateSmartSelect", "Update Smart Select"),
      f7SmartSelect(
        inputId = "variable",
        label = "Choose a variable:",
        selected = "drat",
        choices = colnames(mtcars)[-1],
        openIn = "popup"
      ),
      tableOutput("data")
    )
  ),
  server = function(input, output, session) {
    output$data <- renderTable({
      mtcars[, c("mpg", input$variable), drop = FALSE]
    }, rownames = TRUE)

    observeEvent(input$updateSmartSelect, {
      updateF7SmartSelect(
        inputId = "variable",
        openIn = "sheet",
        selected = "hp",
        choices = c("hp", "gear"),
        multiple = TRUE,
        maxLength = 3
      )
    })
  }
 )
}