我遇到了一个问题，我的DT表的数据“流血”超过了我的流体行中的框的边缘。
下面是tabPanel部分

tabPanel("Table title", h1('dataset', style = 'color: #23A595'),
                                          p('Here we will have a paragraph of explanatory text to talk about the graphs below. Here we will have a paragraph of explanatory text to talk about the graphs below. Here we will have a paragraph of explanatory text to talk about the graphs below. Here we will have a paragraph of explanatory text to talk about the graphs below. Here we will have a paragraph of explanatory text to talk about the graphs below.', style = 'color: black'),
                                          fluidRow(
                                            box(DT::dataTableOutput(outputId = "table"), width = NULL, solidHeader = TRUE, status = "primary"),
                                          ),

当应用程序运行时，这里是呈现DT的结果。

这是数据集的样子。

红色框突出显示了问题。
以下是我的尝试：
第一，

output$table<- renderDT(
    
    outputtable,options = list(columns.width = "3px"
    ),
    rownames= FALSE
    
  )

第二，

fluidRow(box(DT::dataTableOutput(outputId = "table"),width = #),
                          )

我的印象是，闪亮只是自动计算所需的大小，尽管窗口大小是这样的。
简单地说，shiny创建box +将DT表添加到box = box，DT表位于box内部。
我希望突出显示的问题不会发生，我需要做什么？
如果有什么我可以补充的请告诉我。