Hi, I am having a space optimization problem with waffle::waffle and flexdashboard::flex_dashboard. It seems like the waffle will only take a small portion of the total vertical space, no matter what options I change (size argument of waffle::waffle() or fig.height in chunk options. Here is a reproducible example below:
---
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
---
```{r setup, include=FALSE}
library(flexdashboard)
library(waffle)
```
### Chart A
```{r}
parts <- c(One=80, Two=30, Three=20, Four=10)
waffle(parts, rows=5)
```
### Chart B
```{r}
waffle(parts, rows=5, size = 1)
```
### Chart C
```{r}
waffle(parts, rows=5, size = 4, legend_pos = "bottom")
```
### Chart D
```{r, fig.width = 10, fig.height = 8}
waffle(parts, rows=5)
```
Using a single panel:
This is my first time using dashboards so I'm sure there is something simple I am missing. Thanks for any help