r - 如何根据使用 shinyWidgets 在 pickerInput 中键入字母来获得搜索选项？

Question

我用 pickerInput来自 shinyWidgets 的函数包在 Shiny 中有一个下拉菜单。例如我的 ui.R 的一部分:

library(shiny)
library(data.table)
library(shinyWidgets)

.
.
#Rating
        pickerInput(
          inputId = "rate",
          label = "Rating:",
          choices = c(as.character(unique(datT2[order(rat.ord)]$Rating))),     
          selected = sort(unique(as.character(datT2$Rating ))),   
          options = list(`actions-box` = TRUE, 
                         `selected-text-format` = paste0("count > ", length(unique(as.character(datT2$Rating  )))-1) ,
                         `count-selected-text` = "Alle",liveSearch = TRUE, 
                         liveSearchPlaceholder= TRUE),   
          multiple = T
        )

在此功能之前，我只应用了普通功能:

#Rating
  selectInput("rate",
                "Rating:",
                choices = c("Alle",
                            sort(unique(as.character(datT2$Rating )))),     
 selected = "Alle", 
 multiple = TRUE)

在 selectInput功能可以根据键入进行搜索，但不能通过单击 pickerInput 中的方式取消选择所选项目.

如何根据在 pickerInput 中输入字母来获得搜索选项?

Answer 1

答案有点晚，但是您的选项命名是错误的。更改liveSearch在 live-search它会起作用。

options = list(`live-search`=TRUE)

编辑

如果您有 shinyWidgets >= 4.4您也可以使用函数 pickerOptions用于设置选项。您可以调用 ?pickerOptions 查看所有可能的选项或查看 url .

两种方法的示例:

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput('picker 1', 'picker1', c(1,2,3,4,5), options=pickerOptions(liveSearch=T)),
  pickerInput('picker 2', 'picker2', c(1,2,3,4,5), options = list(`live-search`=TRUE))
)

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

shinyApp(ui, server)