<% ## Reuse the future vignette md <- R.rsp::rstring(file="vignettes/doFuture-1-overview.md.rsp", postprocess=FALSE)
md <- unlist(strsplit(md, split="\n", fixed=TRUE)) row <- grep("^## ", md)[1] if (!is.na(row)) md <- md[-seq_len(row-1)]
row <- grep("^---", md)[1] if (!is.na(row)) md <- md[seq_len(row-1)]
cat(md, sep="\n") %>
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.