<% Reuse the future vignette md <- R.rsp::rstring(file="vignettes/profmem.md.rsp", postprocess=FALSE) Drop the header md <- unlist(strsplit(md, split="\n", fixed=TRUE)) md <- md[-seq_len(grep("^## ", md)[1]-1)] Drop the footer md <- md[seq_len(grep("^---", md)[1]-1)] Output cat(md, sep="\n") %>