plot_num_test.Rmd

---
title: 'Large Number of Plots Testt: `r glue::glue("blahblahblah")`'
author: "Test Person"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  html_document:
    keep_md: false
    toc: true
    toc_float: true
    toc_depth: 4
params:
    input_data: tibble
---

# Trial Design and Assessment

Need Trial Description information here


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

```


```{r inputs, message=FALSE, warning=FALSE, error=FALSE, fig.retina=TRUE, fig.height=7, fig.width=8, results = 'asis'}


print_plots <- function(title, plot) {
  cat(title)
  print(plot)
  cat("  \n\n")
}

var_level_print_function <- function(df) {
    
    cat("### Trait Level Plots    \n\n")
    
    prepped_df <- df %>%
        mutate(title = glue::glue("#### Version {rep} \n\n")              )
  
    pwalk(list(prepped_df$title, prepped_df$plots), ~print_plots(..1, ..2))
}
```

```{r outputs, message=FALSE, warning=FALSE, error=FALSE, fig.retina=TRUE, fig.height=7, fig.width=8, results = 'asis'}

nested_var_data <- params$input_data
var_level_print_function(nested_var_data)

```