r - Shiny R 中的水平滚动问题

Question

我在新的 shiny 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 个左列(疾病和产品)应该是固定的，如果您只显示 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)