: library("shinydashboard") library("shiny") library(DT)  test.table <- data.frame(lapply(0:0, function(x) {0:00})) names(test.table) <- paste0('This_is_a_very_long_name_', 0:0)  body <- dashboardBody(   fluidPage(     column(width = 0,            box(              title = "Box title", width = NULL, status = "primary",              div(style = 'overflow-x: scroll', dataTableOutput('table'))            )     )   ) )  ui <- dashboardPage(   dashboardHeader(title = "Column layout"),   dashboardSidebar(),   body )  server <- function(input, output) {    output$table <- renderDataTable({     