Question

我正在使用selectizeInput以获得一个自动填充单词列表，如下面的应用所示。

.class {
    color: yellow;
    font-size: 14px;
}

我希望能够做的是接收与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对输入的选择不那么有选择性？

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)

从selectizeInput获取不完整的输入

1 个答案: