在shiny中插入table，由于列数较多显示不完全，边栏溢出，有办法添加横向滚动条查看完整表格吗

是使用dashboard编码，我的代码如下：

library(shiny)
library(DT)
library(shinydashboard)
ui <- shinyUI(dashboardPage(skin="green",
dashboardHeader(title = "DATA"),
dashboardSidebar(
  sidebarMenu(menuItem("DATA",tabName = "DATA",icon = icon("th")))),
dashboardBody(
      tabItems(tabItem(tabName = "DATA",
    DT::dataTableOutput("data"))))))
server <- shinyServer(function(input, output) {
  data <- read.csv("C:/Users/admin/Desktop/DoubsEnv.csv",h=T, sep="," )
 
  output$data <-DT::renderDataTable(datatable(
    data[,-1],filter =list(position = 'top', clear = TRUE, plain = TRUE),
    ))
})
shinyApp(ui,server)

，出来之后效果如下：

（只是其中一个例子，还不算太宽，侧栏隐藏就能看到了，想请教大家怎样才能插入水平滚动条）