如何保留pickerInput liveSearch筛选器。现在，一旦做出选择，过滤器就会重置

在liveSearch中搜索某个内容并从pickerInput下拉列表中选择某个选项后，liveSearch筛选器将消失，并显示pickerInput的全部选项

示例：假设我有一个许多水果和蔬菜的列表 在下拉列表中选择，我只需要选择一些水果，所以我 在liveSearch中输入“水果”，我会得到苹果、香蕉和橘子。 我需要选择苹果和橙色，所以我继续选择苹果 首先，但这样做会重置liveSearch，剩下的就是 全部清单

库（闪亮）
图书馆（shinyWidgets）
更新ShinyWidget的ui修复了此问题！
library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    fluidRow(
        column(12, br()),
        column(
            3,
            pickerInput(
                inputId = 'product_in', label = 'Select the products',
                multiple = TRUE,
                choices = c(
                    'Fruit_Apple', 'Fruit_Banana', 'Fruit_Orange',
                    'Vegetable_Broccoli', 'Vegetable_Cabbage', 'Vegetable_Lettuce'
                ),
                options = pickerOptions(
                    liveSearch = TRUE,
                    liveSearchPlaceholder = 'Search questions',
                    dropdownAlignRight = TRUE,
                    size = 5,
                    selectedTextFormat = 'count > 1',
                    countSelectedText = '{0} questions selected'
                )
            )
        ),
        column(9, verbatimTextOutput(outputId = "selectionOutput"))
    )
)

server <- function(input, output, session) {
    output$selectionOutput <- renderPrint({
        input$product_in
    })
}

# Run the application
shinyApp(ui = ui, server = server)