revdepcheck: Reverse Dependency Checks

if (FALSE) {
    library("revdepcheck")
    rr <- reverse_dependencies_with_maintainers("lme4")
    bodytext <- "Dear downstream-lme4-package maintainer,\n\nWe are in the process of pushing out a new CRAN release of lme4 (version 1.1-8), hopefully in the next few weeks.  This is a bug-fix and maintenance release; there are a variety of small bug fixes and updates (see <https://github.com/lme4/lme4/blob/master/inst/NEWS.Rd>) but we have (hopefully) made few changes to the package that are likely to break downstream packages.\n\nIt would be extremely helpful to us if you could test your package with the latest development version. You can either use devtools::install_github() to install directly from <https://github.com/lme4/lme4>, or (soon) install.packages(\"lme4\",repos=\"http://lme4.r-forge.r-project.org/repos\") -- let us know if you need help. Please let us know if you discover any issues; even if you can easily fix them yourself, it will help us in communicating with CRAN and may solve problems for other package maintainers who have similar issues.\n\nWe are also doing our own full reverse-dependency check; preliminary results are available at <http://www.math.mcmaster.ca/bolker/R/misc/lme4_compat_report.html>. If there are issues relevant to your package you're likely to be hearing from us again within a few days.\n\nThanks, in advance, for your cooperation and patience...\n\nBen Bolker, for the lme4 maintainers"
    cat(strwrap(bodytext),file="bodyfile.txt",sep="\n")
    for (i in seq(nrow(rr))) {
        bmb <- "Ben Bolker <bbolker@gmail.com>"
        ##system(paste0("mutt -s 'upcoming release of lme4 1.1-8' -- '",
        ##  bmb,"' <bodyfile.txt"))
        system(paste0("mutt -s 'upcoming release of lme4 1.1-8' -- '",
                      rr$Maintainer[i],"' <bodyfile.txt"))
    }
}

##' mail out info to maintainers (depends on having mutt installed;
##' sendmailR doesn't handle SMTP authentication/encryption/etc.)
##' Does simple mail-merge based on column names of info data frame
mail_maintainers <- function(pkg,body,info,
                             fields=NULL) {
    ff <- readLines(body)
}