如何在flexdashboard中渲染googlevis

Question

我正在尝试将GoogleVis与新的FlexDashboard包一起使用 ，这就像基本的.Rd和shinyDashboards之间的交集。 它基本上是一个不闪亮的仪表板。

无论如何，我试图嵌入一个googleVis对象， 默认情况下似乎不支持 ，但我可以让html显示在输出中，所以一定有办法！ 我们可以拿出一些黑客吗？ 也许结合plot()或renderGvis()结合某种黑客 ？ 通过设置op <- options(gvis.plot.tag='chart') ？

我失败了，但也许其他人可以搞清楚？

Answer 1

基于Michal Majka在条件反应逻辑闪亮的flexdashboard上的精彩答案，你可以做这样的事情

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