# Load the libraries for later use library(tools) library(knitr)
Collection of various simple functions that we copy over and over again.
# install.packages("devtools") devtools::install_github("D-iii-S/d3srutils") library("d3s")
get.by.tag <- function(rd, tag) { tags <- tools:::RdTags(rd) rd[[which(tags == tag)]][[1]][1] } overview.names <- c() overview.descr <- c() for (filename in list.files("man", full.names=T)) { rd <- parse_Rd(filename) overview.names <- c(overview.names, get.by.tag(rd, "\\name")) overview.descr <- c(overview.descr, get.by.tag(rd, "\\title")) } kable(data.frame( Function=unlist(lapply(overview.names, FUN=function(x) { sprintf("`%s`", x) })), Description=overview.descr ))
./bin/make.R
before commit to ensure that README.md
is up-to-date
and the code is well-formatted.Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.