make static html help for all R packages

static_html.R

makeStaticHTMLHelp <- function(libs = .libPaths()) { 
  make.packages.html(lib.loc = libs)
  
  links <- findHTMLlinks()
  
  for (lib in libs) {
    message('* Generating static HTML for packages in library ', lib) 
    for (pkg in rownames(installed.packages(lib))) {
      message('** package', pkg)
      pkgRdDB <- tools:::fetchRdDB(file.path(lib, pkg, 'help', pkg)) 
      for (key in names(pkgRdDB)) {
        Rd2HTML(pkgRdDB[[key]],
                out = file.path(lib, pkg, 'html', paste(key, 'html', sep = '.')),
                package = pkg, Links = links, no_links = is.null(links), stages = 'render')
      }
    }
  }
}