r additional.name
output <- object$additional.associations[[additional.name]]$output for (name in names(output)) { cat("", name, sep="\n") print(output[[name]]) }
fig.width <- 1 + opts_chunk$get("fig.width")
(object$additional.associations[[additional.name]]$plot)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.