无法为 NVD3 图表适当分配大小

Question

我正在试验 NVD3 图表，虽然它在闪亮的仪表板中正确呈现，但包含图表的 div 会溢出闪亮的仪表板 box() 容器（不能紧贴盒子） .显式设置图表的高度和宽度会更改图表大小，但不会更改包含 div，这会继续溢出框容器；我似乎无法控制 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)

感谢任何帮助，图迈尼

Answer 1

我测试了您的代码，并将库参数 nvd3 添加到 UI 部分，如下所示：box(showOutput("distPlot2",'nvd3'),width = 6) 以加载 javascript 库。我能够调整 ui 方框的宽度 and/or 服务器端图表的宽度。

Answer 2

抱歉，伙计们，仍然不确定是怎么回事，但是经过试验和测试的 "switch it off and switch it back on again" 在这里对我有用。请注意，我也忘记了在 showOutput() 中添加 lib 变量（至少在此处粘贴的代码中，尽管我已经私下将 lib 变量设置为 "nvd3" 进行了测试，但就大小调整而言，它仍然存在问题很担心。不过现在可以用了:)

无法为 NVD3 图表适当分配大小

Unable to appropriately assign a size to NVD3 chart

nvd3.js

rcharts

shiny

app.R