Если вы используете runtime: shiny
, вам необходимо использовать правильный тип функций renderX()
Shiny для каждого типа объекта графика, чтобы правильно отображать. Я не знаю, почему работает только один сюжетный блок (без renderX()
), но два ломают его.
### 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))
})
```