从selectize获取不完整的输入输入

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)