r - 如何使水平滚动条在 DT::datatable 中可见

Question

使用 R Shiny & DT 包，我正在创建某些表。列数因用户输入而异，并且不固定。我已经包含了以下代码片段来包含一个水平滚动条，以便当列数很大时，用户可以滚动浏览不直接可见的列。

服务器.R:

output$results <- DT::renderDataTable({
    DT::datatable(data = datasetInput(),
                  options = list(scrollX = TRUE,...)
                  )
  })
<code reduced for brevity>

使用上面的代码，水平滚动条一开始是不可见的，但是当我点击一行并点击键盘上的向右箭头时就会出现。有没有办法在表格启动后立即显示滚动条，无论我有多少列，并且我可以使用鼠标指针拖动滚动条？

更新 :

我在下面的答案中尝试了代码，这就是我所看到的 - 没有水平滚动条。

Answer 1

如果您不需要滚动条，我认为您不能(或应该)轻松地强制使用滚动条，但上面的代码对我来说效果很好，它在页面初始化时显示了一个滚动条。也许问题出在数据或其他方面。

这是一个在页面加载时具有水平滚动条的最小示例

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