在Rshiny中使用水平滚动发布过滤DT数据表

Question

在我的Rshiny仪表板中，我想在DT数据表中显示一个宽表（> 15列），该数据表的顶部为过滤器，水平滚动为上。现在，当我要应用过滤器时，表格宽度之外的区域中的所有列都会突然可见。

下面是显示问题的示例：

library(shiny)
library(DT)

runApp(shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("results", width = 300)
  ),
  server = function(input, output){
    output$results <- DT::renderDataTable(
      mtcars,
      filter = "top",
      options = list(scrollX = TRUE,
                     dom = 'Brtip')
    )
  }
))

这是DT中的一个未解决的问题，还是有一种方法可以在给定的代码示例中解决此问题？