r - rCharts rnvd3 在闪亮仪表板中无法正确呈现

Question

我正在尝试添加一个 rChart 和 nvd3 绘制一个闪亮的仪表板。

然而，只有图表的顶部显示。甚至不填充创建的面板。

我的代码 ui 代码是

    showOutput("myPlot")

我还尝试使用以下方法对其进行更改

div(class='wrapper', tags$style(".Nvd3{ height: 700px;}"),
    showOutput("myPlot"))

但这似乎只是创建一个与闪亮的仪表板侧栏颜色相同的框。

我的服务器代码#

output$myPlot<- renderChart({
                 plotdataukv <- nPlot(verifiedUsers ~ date, group="group", data = myData, type = 'lineChart', dom = 'myPlot')
                 plotdataukv$xAxis(axisLabel = 'Time (Days)', tickFormat="#!function(d) {return d3.time.format('%d/%m/%Y')(new Date( d * 86400000 ));}!#", rotateLabels=-90 )
                 plotdataukv$yAxis(axisLabel = 'My Metric')
                 plotdataukv$chart(color = c('blue', 'red'))
                 return(plotdataukv)
})

Answer 1

代码：

output$myPlot<- renderChart({
             plotdataukv <- nPlot(verifiedUsers ~ date, group="group", data = myData, type = 'lineChart', dom = 'myPlot')
             plotdataukv$xAxis(axisLabel = 'Time (Days)', tickFormat="#!function(d) {return d3.time.format('%d/%m/%Y')(new Date( d * 86400000 ));}!#", rotateLabels=-90 )
             plotdataukv$yAxis(axisLabel = 'My Metric')
             plotdataukv$chart(color= c('blue', 'red'))

               plotdataukv$set(dom = 'myPlot')

             return(plotdataukv)
})

showOutput("myPlot", "nvd3")

我希望上面的代码能正常工作..