77-eer.Rmd

# Engineering Evaluation Report

## Risk Table
```{r, echo=FALSE, warning=FALSE, message=FALSE}
# Subset risks for the current report
risk_eer <- risk %>%
  filter(str_detect(TAGS, "#EER"))

rarr::risk_register_table(risk_eer)
```

## Risk Details
```{r, echo=FALSE, warning=FALSE, message=FALSE, results='asis'}
# Set the heading level for risk items
risk_heading_level <- 3
risk_identifier_prefix <- "eer-risk-item"
list_risk_item <- TRUE

# Iterate through risks and produce a risk-item-report for each risk.
eer_risk_item_reports <- lapply(risk_eer$risk_no, function(x) {
  knitr::knit_child("reports/risk-item-report.Rmd", 
                    envir = environment(), 
                    quiet = TRUE)
})

# Add page break divs
page_break_div <- paste(" ", "::: {.page-break}", ":::", " ", sep = "\n")
page_breaks <- rep(page_break_div, 
                   length(risk_eer$risk_no))

# Expand the list of risk reports
cat(unlist(eer_risk_item_reports), sep = page_breaks)
```