Identifying R packages that fail to load and try to re-install them

bad-pkgs-reinstall.R

## Identify installed packages that fail to load
rscript <- function(...) {
  system2(file.path(R.home("bin"), "Rscript"), ...)
}

works <- function(pkg) {
  ## Need to call in separate R session to not use up all DLLs
  rcmd <- sprintf("cat(isTRUE(requireNamespace('%s')))", pkg)
  as.logical(rscript(args=c("-e", dQuote(rcmd)), stdout=TRUE))
}

pkgs <- installed.packages()
pkgs <- pkgs[(pkgs[,"NeedsCompilation"] == "yes"),"Package"]
pkgs <- sort(unique(pkgs))
ok <- sapply(pkgs, FUN=works)
bad <- pkgs[!ok]

## Try to reinstall
install.packages(bad)