闪亮的 selectizeInput：读取当前文本

与闪亮选择输入小部件 https://shiny.rstudio.com/articles/selectize.html，用户可以输入文本以及从值列表中选择一个值。 R中有没有办法读取文本的当前值？

(Added)我应该明确表示我希望能够阅读用户输入的文本before他已经做出了选择。正如 zimia 指出的那样，在他做出选择后，他选择的任何内容的价值都可以作为input$input_id（假设 selectize 输入的 id 为“input_id”）。

您可以只使用输入$input_id。见下文

ui <- fluidRow(
  selectizeInput("input1","Enter Text",choices=c("A","B") ,options = list(create=TRUE)),
  textOutput("output1")
)

server<- function(input, output, session){
  output$output1 <- renderText({
    req(input$input1)
    input$input1
  })
}