Question

我试图在shiny中修复非常宽的桌子的宽度但是没有办法做到这一点。我在这里尝试了答案Shrink DT::dataTableOutput Size，但它没有用，我也尝试了https://github.com/rstudio/DT/issues/29的答案，其中包含所有列的百分比和像素，但它既没有效果也没有效果。这是我的表和问题的一个例子：

shinyApp(
    ui = fluidPage(
      DT::dataTableOutput("table")
    ),
    server <- function(input, output) {
      x <- cbind(iris,iris,iris,iris)
      output$table <- DT::renderDataTable(x)
    }
  )

Answer 1

我认为这可以满足您的需求：

library(shiny)
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("table",width='500px')
  ),
  server <- function(input, output) {
    x <- cbind(iris,iris,iris,iris)
    output$table <- DT::renderDataTable(x,options=list(scrollX=T))
  }
)

修复DT的宽度

1 个答案: