out <- NULL if (!is.null(object$additional.associations)) { for (additional.name in names(object$additional.associations)) out <- c(out, knit_child(file.path(report.path, "additional.rmd"))) }
if (!is.null(out)) cat(out, sep="\n\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.