DataTable width

[SemiQuant]

Hi, it seems that to render data tables in the dashboardBody don't automatically resize and overflow the page without allowing for scrolling. I've tried options all the options I could think of or find online. Example below (if you zoom out on your browser you'll see its printing the whole table)

require(shiny)
require(shinydashboard)
require(DT)

shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(DT::dataTableOutput('dt'),
                  # This one renders and resizes correctly
                  DT::dataTableOutput('dtsmall'),
                  DTOutput('dt2'))
  ),

  server = function(input, output, session) {
    output$dt <- DT::renderDataTable(cbind(cbind(head(mtcars), head(mtcars)),cbind(head(mtcars), head(mtcars))))
    output$dt2 <- DT::renderDT(cbind(cbind(head(mtcars), head(mtcars)),cbind(head(mtcars), head(mtcars))))
    output$dtsmall <- DT::renderDataTable(head(mtcars))
  }
)

[wch]

I think you need to put it in a box().

[SemiQuant]

thanks, tried that but it plots over it, only the buttons and search bar respect it.

[wch]

You might also need to use scrollX=TRUE for renderDataTable. https://stackoverflow.com/a/32150285/412655