闪亮的 R 中的水平滚动问题

Question

我在新的闪亮 R 中，但水平滚动有问题。这是我的代码。

output$sbirx.view <- DT::renderDataTable(
{
  dataset.filter()
}, options = list(
                  searching = TRUE,
                  autoWidth=TRUE,
                  paging=FALSE,
                  scrollX=TRUE,
                  scrollY="500px",
                  scrollCollapse = TRUE,
                  fixedHeader=TRUE,
                  fixedColumns=list(leftColumns = 2, rightColumns = 0, 
                                    heightMatch = 'none')
                ),
            rownames=FALSE,
            class = 'cell-border stripe',
            extensions = c('FixedColumns',"FixedHeader")

)

数据有 79 列，我可以选择要显示的列数。前 2 个 leftcolumns（DISEASE 和 PRODUCT）应该是固定的，如果你只显示 3 列，表格看起来像这样。但是，如果我选择适合屏幕的几列，则没有问题。

疾病产品 疾病产品 2010-11 疾病1 产品1 疾病1 产品1 25,000 疾病1 产品2 疾病1 产品2 15,000 疾病1 产品3 疾病1 产品3 5,000

有没有办法使用任何选项来解决这个问题？

感谢您的时间和帮助。

Answer 1

看起来就像纠正您的选项声明并指定缺少的Scroller扩展一样简单：

library("shiny")
library("DT")

ui <- shinyUI(
  fluidPage(
    dataTableOutput("data")
  )
)

server <- shinyServer(function(input, output) {

  output$data <- renderDataTable({
    datatable(cbind(iris, iris, iris, iris), 
              extensions = c("FixedColumns", "FixedHeader", "Scroller"), 
              options = list(
                # dom = 't',
                # deferRender = TRUE,
                searching = TRUE,
                autoWidth = TRUE,
                # scrollCollapse = TRUE,
                rownames = FALSE,
                scroller = TRUE,
                scrollX = TRUE,
                scrollY = "500px",
                fixedHeader = TRUE,
                class = 'cell-border stripe',
                fixedColumns = list(
                  leftColumns = 3,
                  heightMatch = 'none'
                  )
                )
              )
  })
})

shinyApp(ui, server)