在Rshiny中使用水平滚动发布筛选DT数据表

在我的Rshiny仪表板中，我希望在DT DataTable中显示一个宽表（>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）
runApp（shinyApp）(
ui=fluidPage(
DT:：dataTableOutput（“结果”，宽度=300）
),
服务器=功能（输入、输出）{
输出$results