从 selectizeInput 获取不完整的输入

Question

我正在使用 selectizeInput 以获得可自动完成的单词列表，如下面的应用程序所示。

server <- function(input, output) {
    output$word <- renderText({
        input$selInp
    })
}

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(
            selectizeInput('selInp', label  ='', 
                           selected = 'like',
                           choices = c('like','eat','apples','bananas'))
        ),
        textOutput('word')
    )
)

shinyApp(ui = ui, server = server)

我想做的事情是接收与choices 不匹配的输出。因此，如果我写“橙色”，我希望能够在textOutput 中显示它。有没有办法告诉selectizeInput 不要对输入的内容如此挑剔？

Answer 1

我相信您正在寻找create 选项：

library(shiny)

server <- function(input, output) {
  output$word <- renderText({
    input$selInp
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectizeInput('selInp', label  ='', 
                     selected = 'like',
                     options = list('create' = TRUE),
                     choices = c('like','eat','apples','bananas'))
    ),
    textOutput('word')
  )
)

shinyApp(ui = ui, server = server)