Использование полос прокрутки для больших сюжетов в приложении R Shiny

Question

Я хотел бы добавить полосу прокрутки для графика в приложении Shiny, но отображаются только вертикальные полосы прокрутки, а горизонтальные полосы прокрутки не отображаются. Я приложил небольшое блестящее приложение с минимальным количеством элементов, чтобы продемонстрировать проблему.

cat("\014")
unlink(".RData")
rm(list=ls(all.names = TRUE))

  # A basic shiny app with a plotOutput
  shinyApp(
    ui = fluidPage(
      sidebarLayout(
        sidebarPanel(
        ),
        mainPanel(
          column(6,(div(style='width:200px;overflow-x: scroll;height:200px;overflow-y: scroll;',
                      uiOutput("plot"))) )

        )
      )
    ),
    server = function(input, output) {
      output$plot <- renderUI({
       output$plot2 <- renderPlot(plot(cars))
       plotOutput('plot2')
      })
    }
  )