Невозможно правильно назначить размер для диаграммы NVD3

Я экспериментирую с диаграммой NVD3, и, хотя она правильно отображается на блестящей приборной панели, div, содержащий диаграмму, выходит за пределы контейнера блестящих информационных панелей box() (не помещается плотно в коробку). Явная установка высоты и ширины для диаграммы изменяет размер диаграммы, но не содержит div, который продолжает переполнять контейнер box; Кажется, я не могу контролировать размер div? Код, как показано ниже:

app.R

library(shiny)
library(shinydashboard)
library(rCharts)
library(curl)

consent <- read.csv(curl("https://raw.githubusercontent.com/kilimba/data/master/consent.csv"))

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(showOutput("distPlot2"),width = 6)
      )
    )
)

server <- function(input, output) { 

  output$distPlot2 <- renderChart2({
    p2 <- nPlot(HIVConsentRate ~ Year, 
                group = 'HIVRefused', 
                data = consent, 
                type = 'stackedAreaChart',
                height = 250,
                width = 450)

    return(p2)
  })
}

shinyApp(ui, server)

Любая помощь приветствуется, Тумаини