Отображение nvd3 rChart на flexdashboard

Я пытаюсь получить диаграмму nvd3 для отображения с помощью flexdashboard. Может ли кто-нибудь указать, что я делаю неправильно? Я пробовал несколько вещей, вот два примера того, что я пробовал ниже.

Спасибо за любую помощь.

flex.Rmd

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(rCharts)
library(knitr)
library(shiny)

dat <- data.frame(
  t = rep(0:23, each = 4), 
  var = rep(LETTERS[1:4], 4), 
  val = round(runif(4*24,0,50))
)

output$chart1 <- renderChart({
 chrt1 <- nPlot(val ~ t, group =  'var', data = dat, 
 type = 'stackedAreaChart', id = 'chart')

 return(chrt1)
})

chrt1 <- nPlot(val ~ t, group =  'var', data = dat, 
 type = 'stackedAreaChart', id = 'chart')

```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
# showOutput("chart1", "nvd3")

renderChart({ chrt1$print("hi") })
```

r shiny flexdashboard rcharts nvd3.js
person Akhil Nair    schedule 01.07.2016    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Достигнуто это путем интеграции блестящего приложения. Если есть более чистое решение, мне все равно было бы интересно. Спасибо

### Chart A

```{r}
shinyApp(

  ui = 
    mainPanel(
      showOutput("nplot01", "nvd3")
      ),

  server = function(input, output){
    output$nplot01 <- renderChart({
      n1 <- nPlot(val ~ t, group =  'var', data = dat, 
                  type = 'stackedAreaChart', id = 'chart')
      n1$addParams(dom="nplot01", "nvd3")
      n1
    })
  }

)
```
person Akhil Nair    schedule 05.07.2016