lns <- readLines('README.Rmd')
vcr_start <- grep("vcr", lns)[1]
f <- basename(tempfile(fileext = ".Rmd"))
cat(lns[vcr_start:length(lns)], file=f, sep="\n")
knitr::knit(f, output = "README.md")
unlink(f)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.