Introduction

This is the start of my report.

All of the models featured have a model equation of $$y = r sprintf("%.2fx%+.2f", params$a, params$intercept)$$ and each model has r params$n randomly generated observations.

j <- length(params$dataset())

Individual models

We have created r j modelr if (j > 1) {"s"}.

out <- NULL
for (i in names(params$dataset())) {
  out <- append(out, knitr::knit_child("report-body.Rmd"))
}

r paste(out, collapse = '\n')

Concluding remarks

This is the end of my document. I hope you enjoyed it.



keithnewman/shinyDownload documentation built on March 13, 2024, 6:35 a.m.