bhive01

library(knitr)
library(kableExtra)
library(ggtext)
library(tidyverse)
library(here)

plot_data <- function(df) {
	ggplot() +
		geom_point(data = df, aes(x = wt, y = disp, colour = cyl), position = position_jitter(w = 0.8, h = 0)) +
		labs(

bhive01

---
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

bhive01

---
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

bhive01

---
title: 'Large Number of Plots Test'
output:
  html_document:
    keep_md: false
---


```{r setup, echo = FALSE}
library(knitr)