Add a horizontal scroll bar to datatable in shinydashboard

scroll_horizontal.r

ui<-fluidPage(DT::dataTableOutput("wideTable"))

server<-function(input, output) { 
  output$wideTable <- DT::renderDataTable({
    table <- do.call(cbind, lapply(1:100, function(i) 1:1000))
    colnames(table) <- paste0("name.", 1:100)
    DT::datatable(table, options = list(scrollX = TRUE))
  })
}

shinyApp(ui, server)