if 1 item only, Not display that item in "updateF7SmartSelect()"

[exit2000]

Thanks for your contributions!

If I create a program as follows, the item will not be displayed in updateF7SmartSelect().

Update smart select

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"),
      choices = c("hp"),  # If it changes like this
      multiple = TRUE,
      maxLength = 3
    )
  })
}

)
}

Thank you for reading it.