Flexdashboard无法在同一标记下渲染ggplotly和ggplot对象

Question

我这里有一个基本的可复制示例，我认为它可能只是一个包限制。我在想我是不是做错了什么？它们都可以单独打印，但当组合在同一个标记中时，会使面板无法正确渲染。

---
title: "Untitled"
output: 
flexdashboard::flex_dashboard:
orientation: rows
source_code: embed
runtime: shiny
---
```{r setup, include=FALSE}
library(tidyverse)
library(plotly)
library(albersusa)
state_sf <- usa_sf("aeqd")
state_dat <- data.frame(state = c("Washington", "Wyoming","Texas","California"), pct = c(0.3,0.5,0.8,0.1))
state_map <- state_sf %>% 
left_join(state_dat, by = c("name" = "state"))
```
Test
===================================== 
Sidebar {.sidebar data-width=200}
-------------------------------------
Testing
Row
-----------------------------------------------------------------------
###Plotly
```{r graph 1, fig.height=4, fig.width=6}
#Symptoms by state last week===================================================
ggplotly(
ggplot(data = state_map) + 
geom_sf(aes(fill=pct))
)
```
###Bar
```{r graph 2, fig.height=4, fig.width=3}
ggplot(data=state_dat) +
geom_col(aes(state,pct,fill=pct)) 
```

Answer 1

如果使用runtime: shiny，则需要为每种类型的绘图对象使用正确类型的Shiny的renderX()函数才能正确显示。我不知道为什么只有一个绘图块(w/orenderX()(有效，而两个却破坏了它。

### Plotly
```{r graph_1, fig.height=4, fig.width=3}
#Symptoms by state last week
renderPlotly({
ggplotly(
ggplot(data = state_map) + 
geom_sf(aes(fill=pct))
)
})
```
### Bar
```{r graph_2, fig.height=4, fig.width=3}
renderPlot({
ggplot(data=state_dat) +
geom_col(aes(state,pct,fill=pct))
})
```