# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Functions for weaving and tangling different vignette formats
# [only for R (< 3.0.0)]
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# RSP vignettes
`R.rsp::rsp` <- `rsp` <- function(file, ...) {
R.rsp::rspWeave(file, ...);
R.rsp::rspTangle(file, ...);
}
# Markdown vignettes
`R.rsp::md` <- `md` <- function(file, ...) {
R.rsp::rspWeave(file, ...);
R.rsp::rspTangle(file, ..., pattern="[.]md$");
}
# TeX vignettes
`R.rsp::tex` <- `tex` <- function(file, ...) {
R.rsp::rspWeave(file, ...);
R.rsp::asisTangle(file, ...);
}
# "Dummy" Rnw vignettes
`R.rsp::dummy_Rnw` <- function(file, ...) {
output <- gsub("[.]Rnw$", ".pdf", file);
cat(file=output);
}
# Sweave vignettes
`utils::Sweave` <- `Sweave` <- function(file, ...) {
utils::Sweave(file, ...);
utils::Stangle(file, ...);
}
# knitr vignettes
`knitr::knitr` <- `knitr` <- function(file, ...) {
knitr:::vweave(file, ...);
knitr:::vtangle(file, ...);
}
# noweb vignettes
`noweb::noweb` <- `noweb` <- function(file, ...) {
noweb::noweave(file, ...);
noweb::notangle(file, ...);
}
# *.md.rsp -> *.md -> *.html vignettes (non-offical)
`R.rsp::md.rsp+knitr:pandoc` <- `md.rsp+knitr:pandoc` <- function(file, ...) {
ns <- getNamespace("R.rsp");
weave <- get(".weave_md.rsp+knitr:pandoc", mode="function", envir=ns);
weave(file, ...);
R.rsp::rspTangle(file, ...);
}
# RSP vignettes
`R.rsp::asis` <- `asis` <- function(file, ...) {
R.rsp::asisWeave(file, ...);
R.rsp::asisTangle(file, ...);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.