Iterated ggplots in flexdashboard

Hi

I have a number of groups I am using the map function to output a number of graphs. Ideally I would like these to be available in a flex dashboard where it would be a scrollable page of the graphs that are printed, rather than me manually adding rows/columns. Currently when I do this they seem to print on top of eachother. My yaml header and reprex below

---
title: "XXXXXXXXX data"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
editor_options: 
  chunk_output_type: console

    
---

```{r setup, include=FALSE}

library(tidyverse)
library(flexdashboard)

```
# Iris 

```{r}
my_data <- iris %>% 
  mutate(title = paste("this is", Species)) %>% 
  group_by(title) %>% 
  nest()
```




```{r}
my_graphs <- my_data %>% 
  mutate(graphs = map2(
    data, title, ~ 
    ggplot(.x, aes(Sepal.Length, Sepal.Width)) +
      geom_point() +
      ggtitle(.y)
  ))
```


```{r}
my_graphs$graphs %>% map(print)
```