Erhalten unvollständige Eingabe von selectizeInput

Question

Ich benutze selectizeInput, um eine Liste von Autocompletable-Wörtern wie in der folgenden App veranschaulicht zu haben.

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) 

Etwas, was ich tun würde, in der Lage sein möchte, ist in den Ausgaben zu nehmen, die auch nicht die choices entsprechen. Wenn ich also "orange" schreibe, möchte ich es in der textOutput anzeigen lassen. Gibt es eine Möglichkeit zu sagen, selectizeInput nicht so selektiv über die Eingaben zu sein?

Answer 1

Ich glaube, Sie suchen die create Option:

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)