Anzeige nvd3 rChart auf Flexdashboard

Question

Ich versuche, ein nvd3 Diagramm zum Rendern mit flexdashboard zu erhalten. Könnte jemand bitte darauf hinweisen, was ich falsch mache? Ich habe ein paar Dinge ausprobiert, zwei Beispiele dafür, was ich unten versucht habe.

Danke für jede Hilfe.

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

Answer 1

erreicht durch eine glänzende App zu integrieren. Wenn es eine sauberere Lösung gibt, wäre ich immer noch interessiert. Danke

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

) 
```