R Shiny Picker 在命名选择 header 和内容中输入搜索

Question

我正在尝试修改 Shiny 中的搜索栏，例如我们可以在 pickerInput 中键入内容或他的 header。

代码示例：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "pick", label = "Selected", 
    choices = split(c("Choice 1" = "Value 1", "Choice 2" = "Value 2"), c("First", "Other")), 
    multiple = TRUE,
    options = list( `live-search` = TRUE)
  )
)

server <- function(input, output, session) {
}

shinyApp(ui, server)

这种方式是想在搜索栏中输入文本 Choice 2 或 Other 并获得第二个输入。但是对 Other 的研究没有结果。

隐藏 header 但可以搜索的答案可能会被接受。

如有任何帮助，我们将不胜感激。

Answer 1

如果你安装开发版的{shinyWidgets}（v0.4.9.940，即将在CRAN上），你可以在choicesOpt中传递一个slot tokens来声明实时搜索中使用的一些关键字:

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "pick", label = "Selected", 
    choices = split(c("Choice 1" = "Value 1", "Choice 2" = "Value 2"), c("First", "Other")), 
    multiple = TRUE,
    options = list( `live-search` = TRUE),
    choicesOpt = list(
      tokens = c("first choice 1", "other choice 2")
    )
  )
)

server <- function(input, output, session) {
}

shinyApp(ui, server)

R Shiny Picker 在命名选择 header 和内容中输入搜索

R Shiny Picker Input search in named choice header and content

r

shiny

bootstrap-select

selectinput

pickerinput