Vignette coverage code sketch

vignCovSketch.R

library(devtools) # someday this will be switchr ;-)
install_github("duncantl/CodeDepends")
library(knitr)
library(CodeDepends)

## package you're dealing with (pkgname) MUST be loaded before calling this
vignetteCoverage = function(pkgdir, pkgname = basename(pkgdir), vignexts = c(".Rmd", ".Rnw")) {
    vigns = list.files(file.path(pkgdir, "vignettes"), pattern = paste0("(", paste(vignexts, collapse="|"), ")"), full.names=TRUE)
    tmpfils = sapply(seq(along=vigns), function(x) tempfile( fileext=".R"))
    rfils = mapply(function(inp, out) knit(inp, out, tangle=TRUE), inp = vigns, out = tmpfils)
    scrinfs = lapply(rfils, function(x) {
        scr = readScript(x)
        scriptInfo(scr)
    } )
    funs = unlist(lapply(scrinfs, function(x)  lapply(x, function(y) names(y@functions))))
    symbs = ls(paste0("package:", pkgname))
    funs = funs[funs %in% symbs]
    list(covered = funs, noncovered = symbs[!symbs %in% funs])
}