使用Datatable Shiny看不到列过滤器

Question

我已经从DT包中创建了一个数据表，该表具有50多个行。因此，顶部的过滤盒不是很大。它们似乎在过滤盒中有很多未使用的空白。无论如何，有什么可以减少的，所以我至少可以看到部分过滤器？我将使用虹膜数据集向您展示我希望看到的情况与当前的情况。

ui.R
...
 fluidRow(
            column(
                    width = 12,
                    box(width = NULL, status = "info", solidHeader = T, title = "Earnings Scanner",

                     DTOutput("tab"),style = "height:700px; overflow-y: scroll;overflow-x: scroll;font-size:70%;"
                    )
                  )
                )



server.R
...
output$tab = renderDT(
      datatable(
      frame.ea, filter = 'top', options = list(
        pageLength = 10, autoWidth = TRUE), class = 'cell-border stripe', rownames = F)
    ) 

使用虹膜数据集，您可以查看我正在尝试实现的目标

Answer 1

这似乎与桌子的宽度有关。 （请下次提供可复制的示例）

所以我将使用width的{​​{1}}中的style值：

DTOutput