Wie man googlevis in flexdashboard rendert

Question

Ich versuche, GoogleVis mit dem neuen Paket FlexDashboard zu verwenden, das wie der Schnittpunkt zwischen einem einfachen .RD und shinyDashboards ist. Es ist im Grunde ein nicht glänzendes Dashboard.

Wie auch immer, ich versuche, ein GoogleVis-Objekt einzubetten, die doesn't seem to be supported by default, aber ich kann das HTML in der Ausgabe angezeigt werden, so muss es einen Weg geben! Können wir uns einen Hack einfallen lassen? Vielleicht kombiniert plot() oder renderGvis() kombiniert mit some kind of hack? Orming mit Einstellung op <- options(gvis.plot.tag='chart')?

Ich habe versagt, aber vielleicht kann jemand anderes es herausfinden?

Answer 1

Aufbauend auf der ehrfürchtigen Antwort von Michal Majka bei Conditional reactive logic shiny based flexdashboard können Sie so etwas wie diese

--- 
title: "Test gvisTable" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: rows 

runtime: shiny 
--- 

```{r setup, include=FALSE} 
library(flexdashboard) 
library(googleVis) 

``` 

Column {data-height=350} 
----------------------------------------------------------------------- 

### Chart c 

```{r} 
#create a ui interaction: 
uiOutput("dynamic") 

#render the ui: 
output$dynamic <- renderUI({ 
    htmlOutput("myTable") 
}) 

#here is your server activity: 
output$myTable <- renderGvis({  
    gvisTable(Population)  
    }) 
```