p2m=system.file(package='structReport','templates/report_section.Rmd',mustWork = TRUE) # loop over child docs out=NULL for (g in seq_len(length(R))) { # set the section object for current child S = R$sections[[g]] # set header level HDR_LVL = 1 # set parent model parent_object=S$object # add child out <- c(out, knitr::knit_child(input=p2m,quiet=TRUE)) } cat(paste(out, collapse = '\n'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.