你能帮我确定为什么 selectize input 在 R shiny 应用程序中不能正确呈现吗？

Question

当我在最新版本的 shiny (1.7.4)、DT (0.27) 和 R (4.2.3) 上运行应用程序时，Selectize 输入无法正确呈现。以下是可重现的代码：

library(shiny)
library(DT)
# Define UI for application that draws a histogram
ui <- fluidPage(
  uiOutput("input1"),
  dataTableOutput("iris")
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  
  output$input1 <- renderUI({
    selectizeInput("input1", "Select input:", choices = c("one", "two", "three"), multiple = TRUE)
  })
  
  output$iris <- renderDataTable({
    datatable(data = iris, filter = 'top')
  })
  
}

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

我收到此浏览器错误 - 错误：无法找到“selectize-plugin-a11y”插件，它呈现如下图所示：

但是，如果我从数据表中删除参数 filter = 'top'，它似乎工作正常。

知道为什么会发生这种情况以及任何推荐的解决方案吗？