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