I wrote a loop that made 10 graphs in R:

library(plotly)

for (i in 1:10)

{

d_i = data.frame(x = rnorm(100,100,100), y = rnorm(100,100,100))

title_i = paste0("title_",i)

p_i = plot_ly(data = d_i, x = ~x, y = ~y) %>% layout(title = title_i)

htmlwidgets::saveWidget(as_widget(p_i), paste0("plot_",i, ".html"))

}

I have this code (

The RMarkdown altogether

---
title: "Test Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(plotly)
library(tidyverse)
library(htmltools)

for (i in 1:10) {
  d_i = data.frame(x = rnorm(100,100,100), y = rnorm(100,100,100))
  title_i = paste0("title_",i)
  # p_i = plot_ly(data = d_i, x = ~x, y = ~y) %>% layout(title = title_i)
  assign(paste0("plot_", i, ".html"),   # name them plot_1.html, plot_2.html and so on
         plot_ly(data = d_i, x = ~x, y = ~y, height = 400) %>% 
           layout(title = title_i))
        # not using right now!
  # htmlwidgets::saveWidget(as_widget(p_i), paste0("plot_",i, ".html"))
  }

# htmlwidgets::saveWidget(as_widget(plot_1.html), "plot_1.html") # created for testing
```

Column {data-width=100}
-----------------------------------------------------------------------

### Window 1 {data-height=500}

```{r makeGoodChoices}

# plots = rep("plot", 10)
# i = seq(1:100)
# choice = paste0(plots, "_",i)

choice = paste0("plot_", 1:100) # this line replaces last 3 lines
opts <- paste0(choice, ".html")

namedChoices = setNames(opts, choice)

# selectInput("project", label = NULL, choices = choice) # originally
selectInput("project", label = NULL, choices = namedChoices)
```

```{r dynoPlots}

renderPlotly(get(input$project)) # show me!

```