根据用户输入的闪亮的服务器端建议

Question

我pickerInput根据用户开始输入的内容更新选择器输入的选择。 类似于您开始使用 Google 打字时发生的情况。

这些建议必须在服务器端处理。

下面是我的代码。 问题是用户输入的内容——如果不是现有的选择——没有发送到服务器。 有没有办法发送用户输入的内容？

也许pickerInput不是正确的方法？ 我还能怎么做到这一点？

library(shiny)
library(shinyWidgets)

suggest <- function(x) {
  # would in reality send whatever the user starts typing to an API that returns suggestions
  choices <- c("Some", "One", "Suggests", "This", "According", "To", "Input")
  choices[grep(x, choices, ignore.case = T)]
}

ui <- fluidPage(
  pickerInput(inputId = "id1",
              choices = c(),
              options = list(`live-search` = T))
)

server <- function(input, output, session) {
  observe({
    req(input$one)
    updatePickerInput(session, inputId = "id1", choices = suggest())
  })
}

shinyApp(ui, server)

Answer 1

您可以使用shiny::selectizeInput()来实现您想要的：

library(shiny)

# Generate arbitrarily thousands of choices which can only be rendered 
# serverside to avoid app slowdown:
k <- expand.grid(col1 = letters, col2 = letters, col3 = LETTERS)
choices <- with(k, paste0(col1, col2, col3))

ui <- fluidPage(
  selectizeInput(
    inputId = "selector", 
    label = "Selector", 
    choices = NULL
  )
)

server <- function(input, output, session) {
  observe({
    updateSelectizeInput(
      session = session,
      inputId = "selector",
      choices = choices, 
      server = TRUE
    )
  })
}

shinyApp(ui, server)

^{由reprex 包（v2.0.1）于 2022-07-23 创建}