Rebuild R packages after system libraries have been upgraded

rebuild-sys.R

#!/usr/bin/env Rscript

libs = c("libopenblas", "libicu")

packages = character()
patterns = sprintf("^%s.* => not found$", libs)

for (lib in .libPaths()) {
  files = list.files(path = lib, pattern = "\\.so(\\.[0-9]+)*$", recursive = TRUE, 
    ignore.case = TRUE, full.names = TRUE, no.. = TRUE)
  for (file in files) {
    lines = suppressWarnings(trimws(system2("ldd", file, stdout = TRUE, stderr = TRUE)))
    for (pattern in patterns) {
      if (any(grepl(pattern, lines))) {
        packages = c(packages, basename(dirname(dirname(file))))
      }
    }
  }
}

if (length(packages)) {
  install.packages(unique(packages))
}