如何让DT表格在tabBox()内不超出边框

要让DT表格在宽度和高度上完全适配tabBox面板，需调整表格容器尺寸并配置DT的显示选项，以下是修改后的完整代码：

library(shiny)
library(bs4Dash)
library(DT)

shinyApp(
  ui = dashboardPage(
    header = dashboardHeader(),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
      # 移除tab面板默认内边距，避免表格周围留白
      tags$style(HTML("
        .tab-content .tab-pane {
          padding: 0;
        }
      ")),
      tabBox(
        id = "tabset1",
        height = 750,
        tabPanel("Hello", 
                 "This is the hello tab",
                 # 设置表格容器宽度占满tabBox，高度扣除tab头部高度
                 DT::DTOutput("myTable", width = "100%", height = "calc(100% - 48px)")
        )
      )
    )
  ),
  server = function(input, output, session) {
    output$myTable <- DT::renderDT({
      DT::datatable(
        mtcars,
        options = list(
          scrollX = TRUE, # 启用横向滚动适配宽表
          scrollY = "100%", # 纵向滚动高度占满容器
          paging = FALSE, # 移除分页（如需保留可调整scrollY值）
          dom = 't' # 仅显示表格主体，隐藏搜索、信息栏
        ),
        fillContainer = TRUE # 让表格自动填充容器空间
      )
    })
  }
)

核心调整说明： #

• 消除面板内边距：通过CSS移除tabPane的默认padding，避免表格因留白导致边框溢出。
• 容器尺寸适配：DTOutput宽度设为100%匹配tabBox宽度；高度用calc(100% - 48px)扣除tab头部高度，确保表格占满剩余垂直空间。
• DT选项优化：
  • fillContainer = TRUE：让表格自动适配容器尺寸。
  • scrollX = TRUE：处理宽表横向溢出问题。
  • 移除分页和多余控件：让表格完全填充tabBox高度（如需保留分页，可将scrollY设为固定值如600px）。

内容的提问来源于stack exchange，提问作者TarJae