R/vignette.R

In MangoTheCat/packageMetrics2: Collect Metrics about R Packages

num_vignettes <- function(package, version = NULL) {
  "!DEBUG Counting number of vignettes"

  vig <- unclass(utils::browseVignettes(package = package))

  if (length(vig) == 0) {
    0

  } else {
    nrow(vig[[1]])
  }
}