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)

任何帮助表示赞赏， Tumaini

Answer 1

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

Answer 2

对不起，伙计们，仍然不确定是什么事，但经过试验和测试的＆＃34;关闭它并重新打开它＆＃34;在这里为我工作。请注意，我也忘了在showOutput（）中添加lib变量（至少在此处粘贴的代码中，尽管我已经测试了lib变量设置为＆＃34; nvd3＆＃34;私有并且它已证明有问题就尺寸而言。但它现在有效：）

无法为NVD3图表正确指定大小

app.R

2 个答案: