title: R DT Horizontal scroll bar at top of the table
body: <p>I have a wide and lengthy DT in shiny. By default I would like to show the horizontal scroll bar on top of the table. Is there a way to do this? My current DT definition looks like below:</p>
  
  <pre><code>DT::datatable(dt, rownames = FALSE,
                      filter = fbox,
                      style = "bootstrap",
                      options = list(
                        dom = dom,
                        scrollX = TRUE,
                        columnDefs = list(list(orderSequence = c('desc', 'asc'), targets = "_all")),
                        processing = FALSE,
                        pageLength = 500,
                        lengthMenu = list(c(500, 1000, 5000), c("500","1000","5000"))
                      ),
                      callback = DT::JS("$(window).unload(function() { table.state.clear(); })")
   ) %&gt;% DT::formatStyle(., cn_cat,  color = "black", backgroundColor = "#dee6ea",fontWeight = "bold")
  </code></pre>
  
  <p>Thanks in advance.</p>