选择一个选项后，搜索框中的文本将被忽略

Question

在我闪亮的应用程序中，我在侧边栏放置了pickerInput过滤器作为subMenuItems。其中一个过滤器有100多个选项，因此我希望用户能够选择/取消选择所有内容并搜索特定项目。但是，当您搜索并选择一个项目时，pickerInput会刷新并忽略搜索栏中的文本。如果需要选择多个具有相似名称的项目，这将迫使用户再次搜索。

我尝试使用selectize，但是列表很长，以至于用户不得不垂直滚动太多。我也尝试过options = list（'persist'= TRUE），但这似乎无济于事。

我找到了similar question being asked on github，但没有答案。

library(shinydashboard)

ui <- dashboardPage(

    dashboardHeader(),

    dashboardSidebar(
        sidebarMenu(
            menuItem(
                text = "menu",
                icon = icon("map-marked-alt"),

                menuSubItem(
                   icon = "",

                    pickerInput(
                        inputId = "pickeroptions",
                        label = "Product Name",
                        choices = sort(as.character(iris$Species)),
                        selected = sort(as.character(iris$Species)),
                        multiple = T,
                        options = list("actions-box" = TRUE,
                                       `live-search`=TRUE,
                                       'persist' = TRUE))
                )
            )
        )
    ),

    dashboardBody(
        tabItems(
            tabItem(
                tabName = "menu"
            )
        )
    )
)

server <- function(input, output) {


}

shinyApp(ui = ui, server = server)

只要搜索栏中有文字，我希望菜单中的选项保持过滤状态。这是我遇到的问题的代表。谢谢。