如何在flexdashboard中呈现googlevis

我正在尝试将GoogleVis与新软件包结合使用，这就像基本的.Rd和shinyDashboards之间的交叉点。它基本上是一个没有光泽的仪表板

---

无论如何，我正在尝试嵌入一个googleVis对象，但是我可以让html显示在输出中，所以一定有办法！我们能想出一些技巧吗？可能将

plot（）

或

renderGvis（）

与组合在一起？通过设置

op在Michal Majka的绝妙答案的基础上，你可以做这样的事情

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

---
标题：“测试gvisTable”
输出：
flexdashboard:：flex_仪表板：
方向：行
运行时间：闪亮
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（谷歌）
```
列{数据高度=350}
-----------------------------------------------------------------------
###图c
```{r}
#创建ui交互：
uiOutput（“动态”）
#呈现用户界面：
输出$dynamic我给你一个+1的努力，但如果我想要闪亮的话，我就去shinydashboard。不错的hack-tho..我想这很公平，但我要指出的是，您特别要求“某种hack”（即，如果定义运行时甚至是一种hack），其次，shinydashboard不是一种标记格式，因此将两个有用的包组合到一个解决方案中并不等同于只使用一个。