Datatable with a plot - strange scroll bar

server.R

require(rCharts)
require(shiny)
require(data.table)
 
shinyServer(function(input, output, session){
  output$myplot <- renderPlot({ 
    gg <- ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length)) + geom_point() + facet_grid(Species~.)
    print(gg)
  }, height=750)
  output$mytable <- renderChart2({
    dTable(iris, sPaginationType = input$pagination)
  })
})

ui.R

require(shiny)
require(rCharts)
shinyUI(pageWithSidebar(
  headerPanel('DataTables in Shiny with rCharts'),
  sidebarPanel(
    selectInput('pagination', 'Choose Pagination',
      c('two_button', 'full_numbers')            
    )
  ),
  mainPanel(
    tabsetPanel(
      tabPanel("Data", 
    div(class="container-fluid", style="overflow:auto;height:800px;", 
      plotOutput('myplot')
    ),
    br(),
    h3("Data:"), 
    chartOutput('mytable', 'datatables') 
  )))
))

Not able to reproduce the "bug"... and this bug solved with a div environment