Mattlk13 · September 7, 2018 21:50
diff --git a/readme.md b/readme.md
diff --git a/readme.Rmd b/readme.Rmd
 Here is a list of package vignettes _possibly_ built with **knitr** on CRAN.

 ```{r fetch-pkgs, include=FALSE}
 pkgs = available.packages(contrib.url('https://cran.r-project.org', 'source'))
 deps = tools::package_dependencies('knitr', pkgs, which = 'all', reverse = TRUE)[['knitr']]
 deps = setdiff(deps, 'R.rsp')  # packages that do not use knitr
 deps = sort(c(deps, 'knitr'))
 ```
 ```{r vig-list, include=FALSE, echo=FALSE, cache=TRUE, cache.extra=deps, message=FALSE, error=FALSE}
 vigs = lapply(deps, function(pkg) {
  message(pkg)
  url = sprintf('https://cran.r-project.org/web/packages/%s/index.html', pkg)
  txt = try(readLines(url))
  if (inherits(txt, 'try-error')) return()
  i = grep('<td>Vignettes:</td>', txt)
  if (length(i) > 1) stop('something is wrong on the CRAN page of ', pkg)
  if (length(i) == 0) return()
  j = grep('</td>', txt)
  txt = txt[seq(i + 1, min(j[j > i]) - 1)]
  pat = '<a href="([^"]+)">(.*?)</a><br/>'
  txt = grep(pat, txt, value = TRUE)
  x1  = sub(pat, '\\1', txt)  # link
  x2  = sub(pat, '\\2', txt)  # title
  x2  = gsub('\\', '', x2, fixed = TRUE)  # mcprofile has something weird in the title
  cbind(
    package  = pkg,
    type     = toupper(tools::file_ext(x1)),
    vignette = sprintf('[%s](https://cran.rstudio.com/web/packages/%s/%s)', x2, pkg, x1)
  )
 })
 ```

 ```{r output, results='asis', echo=FALSE}
 vigs = do.call(rbind, vigs)
 vigs = rbind(vigs, cbind(package = setdiff(deps, vigs[, 1]), type = '', vignette = ''))
 res = knitr::kable(vigs, align = c('r', 'l', 'l'), output = FALSE)
 res = gsub('^\\|\\s*|\\s*\\|$', '', res)
 res[2] = gsub('^(-+):', '\\1-', res[2])
 cat(res, sep = '\n')
 ```

 There are `r length(deps)` packages and `r sum(nzchar(vigs[, 2]))` vignettes.
	Here is a list of package vignettes _possibly_ built with knitr on CRAN.

	```{r fetch-pkgs, include=FALSE}
	pkgs = available.packages(contrib.url('https://cran.r-project.org', 'source'))
	deps = tools::package_dependencies('knitr', pkgs, which = 'all', reverse = TRUE)[['knitr']]
	deps = setdiff(deps, 'R.rsp') # packages that do not use knitr
	deps = sort(c(deps, 'knitr'))
	```
	```{r vig-list, include=FALSE, echo=FALSE, cache=TRUE, cache.extra=deps, message=FALSE, error=FALSE}
	vigs = lapply(deps, function(pkg) {
	message(pkg)
	url = sprintf('https://cran.r-project.org/web/packages/%s/index.html', pkg)
	txt = try(readLines(url))
	if (inherits(txt, 'try-error')) return()
	i = grep('<td>Vignettes:</td>', txt)
	if (length(i) > 1) stop('something is wrong on the CRAN page of ', pkg)
	if (length(i) == 0) return()
	j = grep('</td>', txt)
	txt = txt[seq(i + 1, min(j[j > i]) - 1)]
	pat = '<a href="([^"]+)">(.*?)</a><br/>'
	txt = grep(pat, txt, value = TRUE)
	x1 = sub(pat, '\\1', txt) # link
	x2 = sub(pat, '\\2', txt) # title
	x2 = gsub('\\', '', x2, fixed = TRUE) # mcprofile has something weird in the title
	cbind(
	package = pkg,
	type = toupper(tools::file_ext(x1)),
	vignette = sprintf('[%s](https://cran.rstudio.com/web/packages/%s/%s)', x2, pkg, x1)
	)
	})
	```

	```{r output, results='asis', echo=FALSE}
	vigs = do.call(rbind, vigs)
	vigs = rbind(vigs, cbind(package = setdiff(deps, vigs[, 1]), type = '', vignette = ''))
	res = knitr::kable(vigs, align = c('r', 'l', 'l'), output = FALSE)
	res = gsub('^\\\|\\s\|\\s\\\|$', '', res)
	res[2] = gsub('^(-+):', '\\1-', res[2])
	cat(res, sep = '\n')
	```

	There are `r length(deps)` packages and `r sum(nzchar(vigs[, 2]))` vignettes.