如何阻止 R Shiny Dashboard 中的数据表相互重叠？

如何解决如何阻止 R Shiny Dashboard 中的数据表相互重叠？

我在创建仪表板时遇到问题，我需要并排放置 2 个表。这部分很好，但是当窗口以默认大小打开时（或者如果用户将其设置为小于显示完整表格所需的宽度），数据表会相互重叠，直到用户使窗口足够窄，以便导航栏消失，第二个数据表向下移动到下一行。

谁能告诉我为什么会发生这种情况，有没有办法阻止这种情况？

我用一些示例代码复制了这个。

library(shiny)
library(shinydashboard)
library(DT)
library(dplyr)

ui <- dashboardPage( 
  skin = "blue",dashboardHeader(title = "Test"),dashboardSidebar(
    width = 250,collapsed = FALSE,sidebarMenu(
      id = "tabs",menuItem("Tables",tabName="tab",icon=icon("car")))
    ),dashboardBody(
    tabItems(
      tabItem(
        "tab",fluidPage(
          fluidRow(
            column(width = 4,h4("TABLE 1"),DTOutput("table1")),column(width = 4,h4("TABLE 2"),DTOutput("table2"))
            )
          )
        )
      )
    )
  )

server <- function(input,output,session){
  
  table1 <- head(iris)[1:2]
  table2 <- head(iris)[3:5]
  
  output$table1 <- DT::renderDT({
    datatable(table1,escape=FALSE,rownames=TRUE,selection ='none',options = list(
                dom ='t',paging = FALSE,searcing = FALSE,filtering = FALSE,ordering = FALSE)
              )
    })
  
  output$table2 <- DT::renderDT({
    datatable(table2,ordering = FALSE)
    )
  })
}

shinyApp(ui,server)

理想情况下，我希望列宽根据需要自动调整（即使这意味着部分文本被覆盖 - 想想一个 excel 电子表格，其中文本太长，下一个单元格中有一些东西，所以它刚刚被切断）。无论如何，我不希望表格重叠，它们应该保持在列边界内。