Question

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

但是只有图表的顶部显示。并且甚至没有填充创建的面板。

我的代码ui代码是

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)
})

但所有这一切似乎都是创建一个与闪亮仪表板侧栏相同颜色的盒子。

我的服务器代码＃

http://[mywebsite.nl]/#/cover
http://[mywebsite.nl]/#/welkom
http://[mywebsite.nl]/#/pagina1
http://[mywebsite.nl]/#/pagina2

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")

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

rCharts rnvd3在shinydashboard中无法正确呈现

1 个答案: