r - 在 R 中使用 DT 调整数据表的宽度

Question

这是一个在 R 中创建的数据表的脚本。我试图通过调整图的宽度来完全适应框中的图。下面是情节的脚本以及我试图适应的盒子。请帮我调整使用数据表生成的图的宽度。另外，我不想增加框的宽度。可能的解决方案的链接将有很大帮助。谢谢。

数据表脚本:

r3_blood = subset(patient, handling == "Blood test" & employee == "r3")
  datatable(r3_blood, options = list(
    searching = FALSE,
    pageLength = 5,
    lengthMenu = c(5, 10, 15, 20)
  ))

将表格放入框中的脚本:

box( title = "Case Summary", status = "primary", height = 
  "575",solidHeader = T, 
                          dataTableOutput("sankey_table"))

Answer 1

1) 与已经提出的 possible duplicate ticket 一起，您可以在其中使用 div(DT::dataTableOutput("table"), style = "font-size: 75%; width: 75%")
2)您也可以将 scrollX = T 添加到您的选项中

library(DT)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    box(title = "Case Summary", width = 4,status = "primary", height = "575",solidHeader = T, dataTableOutput("Table"))
  )
)

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

  output$Table <- renderDataTable(
    datatable(mtcars, options = list(searching = FALSE,pageLength = 5,lengthMenu = c(5, 10, 15, 20), scrollX = T))
  )
}
shinyApp(ui, server)