使用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

桌子的宽度似乎是个问题。 （请下次提供可复制的示例）

因此，我将使用DTOutput style的width值进行DTOutput ：

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

                     DTOutput("tab"),style = "height:700px; width: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)
    )