Есть ли функция R в блестящем для поиска предметов

Question

У меня есть код ниже.Мне нужно поместить поисковые аспекты на вкладке операций.Могу ли я добавить его в приведенный ниже код.Причина в том, что если в операции много элементов, возможно, мне придется поискать

# faithful is the dataset
sample1 <- 1:3
library(shiny)
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(
        "x", 
        "Operations", 
        choices = c("summary", "stem", "typeof", "mode", "birth")
      )
    ), 
    mainPanel(
      h6("Here it is"), 
      verbatimTextOutput("message")
    )
  )
)

server <- function(input, output, session) {

    output$message <- renderPrint({
        if(input$x == "summary") {
            summary(faithful$eruptions)
        } else if (input$x == "stem") {
            print(stem(faithful$eruptions))
        } else if (input$x == "typeof") {
            typeof(sample1)
        } else if (input$x == "mode") {
            mode(sample1)
        } 
    })
}

shinyApp(ui, server)

Answer 1

Одной альтернативой может быть использование selectize = TRUE в selectInput, тогда пользователь может ввести часть выбора, и он найдет ее так же, как в кнопке поиска, вместо того, чтобы просто иметь список вариантов, которые не могут быть отфильтрованы .

Пожалуйста, проверьте последний пример этой ссылки .