Исправить переменную в SelectInput (RShiny)

Question

У меня есть selectInput и я хочу исправить одну входную переменную, т.е. вы можете выбирать разные переменные, но всегда выбирается одна переменная.Как я могу запрограммировать это?Заранее спасибо.

Answer 1

Это должно сделать работу, буква a всегда будет выбрана

library(shiny)
shinyApp(
  ui = fluidPage(
    selectInput("letters", "Choose a letter:",choices = letters,selected = letters[1],multiple = T)
  ),
  server = function(input, output,session) {

    observeEvent(input$letters, {
      updateSelectInput(session, "letters", selected = c(letters[1], 
      input$letters))
    }, ignoreNULL = F)        
  }
)