83-decision-items.Rmd

# Decision Items

```{r, echo=FALSE, warning=FALSE, message=FALSE, results='asis'}
# Set the heading level for items
decision_heading_level <- 2
decision_identifier_prefix <- "decision-item"
list_decision_item <- TRUE

# Iterate through items and produce an item-report for each item.
decision_item_reports <- lapply(decision$decision_no, function(x) {
  knitr::knit_child("reports/decision-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(decision$decision_no))

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