R 闪亮的动作按钮没有'；在DT:：datatable中启用筛选时，在模式对话框中不工作

在下面的示例中，将显示一个表，用户单击一个按钮以打开一个包含输入和操作按钮的模式对话框。当通过在

DT:：datatable（）

中设置

filter=“top”

在表中启用筛选时，模式对话框中的操作按钮不会响应单击。如果

filter=“none”

或表被隐藏，则相同的操作按钮会响应单击。有趣的是，如果在模式对话框中没有输入，只有操作按钮，操作按钮对点击做出响应

我想知道这是否是

shinny

或

DT

中的错误，或者我的代码是否有问题。如果您能帮我解决这个问题，我们将不胜感激

按原样运行下面的代码以查看问题（模式对话框中的submit按钮不会触发响应）。要使“提交”按钮按预期工作，可以执行以下三项操作之一：

注释掉

output$myTable

部分和

fluidRow（DTOutput（“myTable”））

在

DT:：datatable（）中设置
filter=“none”

注释掉行

selectInput（“input1”，…）

我使用的是DT版本0.17、闪亮版本1.6.0和R版本4.0.4

更新：使用闪亮的1.5.0，模式对话框内的操作按钮会按预期响应单击。所以从闪亮的1.5.0升级到1.6.0似乎是个问题

require(shiny)
require(DT)

shinyApp(
  ui = fluidPage(
    fluidRow(actionButton("myButton", label = "Click")),
    fluidRow(DTOutput("myTable"))
  ),
  server = function(input, output) {
    output$myTable <- renderDataTable({
      DT::datatable(
        data = mtcars[1:5, ],
        filter = "top"
      )
    })
    observeEvent(input$myButton, {
      showModal(modalDialog(
        selectInput("input1", label = "Input 1", choices = c("Ford F150", "Porsche 911")),
        actionButton("submit", label = "Submit")
      ))
    })    
    observeEvent(input$submit, {
      showModal(modalDialog(
        title = "Thank you",
        "You have clicked Submit."
      ))
    })    
  }
)

require（闪亮）
需要（DT）
shinyApp(
ui=fluidPage(
fluidRow（操作按钮（“myButton”，label=“Click”），
fluidRow（DTOutput（“myTable”））
),
服务器=功能（输入、输出）{
输出$myTable