rCharts rnvd3 неправильно отображается в shinydashboard

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

Я надеюсь, что приведенный выше код работает правильно ..