Check all Recommended packages for partial matching issues

recommended_partial_issues.R

setwd(tempdir())
pmatchRe = "partial( argument)? match"

write_strict_profile = function(path = ".Rprofile") {
  writeLines(con=path, c(
    "options(warnPartialMatchArgs=TRUE, warnPartialMatchAttr=TRUE, warnPartialMatchDollar=TRUE)",
    sprintf("globalCallingHandlers(warning=function(c) if (grepl('%s', conditionMessage(c))) stop(c) else warning(c))", pmatchRe)
  ))
}
clone_cran_mirror = \(pkg) system2("git", c("clone", "-q", sprintf("https://github.com/cran/%s.git", pkg)))
check_tests_for_pmatch = function(pkg = ".") {
  tests = list.files(file.path(pkg, 'tests'), pattern='[.][rR]$', full.names=TRUE)
  for (t in tests) local({
    system2("R", c("CMD", "BATCH", t))
    tmp = paste0(basename(t), "out")
    on.exit(unlink(tmp))
    l = grep(pmatchRe, readLines(tmp), value=TRUE)
    if (length(l)) message(t, "\n", l)
  })
}

recPkgs = available.packages() |>
  as.data.frame() |>
  subset(riority=='recommended') |>
  rownames()

write_strict_profile()
for (pkg in recPkgs) {
  clone_cran_mirror(pkg)
  check_tests_for_pmatch(pkg)
  unlink(pkg, recursive=TRUE)
}