---
title: "Reproducibility with environments"
output:
  html_document: default
  pdf_document: default
date: "2024-06-05"
author: "Andreas M. Brandmaier"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(reproducibleRchunks)
x <- 11

#options(reproducibleRchunks.templates =  list(html = "<div style='border: 3px solid red; padding: 10px 10px 10px 10px; background-color: #EEEEEE;'><h1>${title}</h1>${content}</div>"))
```

```{reproducibleR}
env <- new.env()
assign("a",3, envir=env)
assign("b", 728, envir=env)
e2 <- new.env()
assign("e",3, env=e2)
a<-4
```

## Summary

The following table summarizes reproducibility information collected in this document:

```{r}
knitr::kable(
  reproducibleRchunks::get_reproducibility_summary()
)
```
