## ----code, echo = FALSE--------------------------------------------------
code <- function(...) {
    cat(paste(..., sep = "\n"))
}

code2 <- function(...) {
    cat(paste("```markdown", ..., "\n", "```", sep = "\n"))
}

date = "`r doc_date()`"
pkg = "`r pkg_ver('BiocStyle')`"

## ----rmarkdown, eval=FALSE-----------------------------------------------
## install.packages("rmarkdown")

## ----, echo = FALSE , results = 'asis'-----------------------------------
code("```{r style, echo = FALSE, results = 'asis'}",
     "BiocStyle::markdown()",
     "```")

## ----, echo = FALSE, results = 'asis'------------------------------------
code("```{r style, echo = FALSE, results = 'asis'}",
     "BiocStyle::markdown(css.files = c('custom.css'))",
     "```")

## ----macro, echo=FALSE---------------------------------------------------
macro <- function(name, pkg, description)
    sprintf('`` `r %s("%s")` `` %s %s', name, pkg,
            description, do.call(name, list(pkg)))

## ----figure, fig.width=4.0, fig.height=4.4-------------------------------
v = seq(0, 60i, length = 1000)
plot(abs(v)*exp(v), type = "l", col = "Royalblue")

## ----sessionInfo, echo=FALSE---------------------------------------------
sessionInfo()