Add target rule in root Makefile to check reverse dependencies

Signed-off-by: Stefan Widgren <[email protected]>

Author: stewid

Makefile

@@ -29,6 +29,56 @@ check:
         R CMD check --as-cran --no-manual --no-vignettes \
         --no-build-vignettes $(PKG_TAR)
 
+# Check reverse dependencies
+#
+# 1) Install packages (in ./revdep/lib) to check reverse dependencies.
+# 2) Check reverse dependencies using 'R CMD check'.
+# 3) Collect results from '00check.log' files.
+revdep: revdep_install revdep_check revdep_results
+
+# Install packages to check reverse dependencies
+revdep_install: clean
+	mkdir -p revdep/lib
+	cd .. && R CMD INSTALL --library=$(PKG_NAME)/revdep/lib $(PKG_NAME)
+	Rscript --vanilla \
+          -e "options(repos = c(CRAN='https://cran.r-project.org'))" \
+          -e "lib <- 'revdep/lib'" \
+          -e "pkg <- tools::package_dependencies('$(PKG_NAME)', which = 'all', reverse = TRUE)" \
+          -e "pkg <- as.character(unlist(pkg))" \
+          -e "dep <- sapply(pkg, tools::package_dependencies, which = 'all')" \
+          -e "dep <- as.character(unlist(dep))" \
+          -e "if ('BiocInstaller' %in% dep) {" \
+          -e "    source('https://bioconductor.org/biocLite.R')" \
+          -e "    biocLite('BiocInstaller', lib = lib)" \
+          -e "}" \
+          -e "install.packages(pkg, lib = lib, dependencies = TRUE)" \
+          -e "download.packages(pkg, destdir = 'revdep')"
+
+# Check reverse dependencies with 'R CMD check'
+revdep_check:
+	$(foreach var,$(wildcard revdep/*.tar.gz),R_LIBS=revdep/lib \
+          _R_CHECK_CRAN_INCOMING_=FALSE R --vanilla CMD check --as-cran \
+          --no-stop-on-test-error --output=revdep $(var) \
+          | tee --append revdep/00revdep.log;)
+
+# Collect results from checking reverse dependencies
+revdep_results:
+	Rscript --vanilla \
+          -e "options(repos = c(CRAN='https://cran.r-project.org'))" \
+          -e "pkg <- tools::package_dependencies('$(PKG_NAME)', which = 'all', reverse = TRUE)" \
+          -e "pkg <- as.character(unlist(pkg))" \
+          -e "results <- do.call('rbind', lapply(pkg, function(x) {" \
+          -e "    filename <- paste0('revdep/', x, '.Rcheck/00check.log')" \
+          -e "    lines <- readLines(filename)" \
+          -e "    status <- sub('^Status: ', '', lines[grep('^Status: ', lines)])" \
+          -e "    data.frame(Package = x, Status = status)" \
+          -e "}))" \
+          -e "results <- results[order(results[, 'Status']), ]" \
+          -e "rownames(results) <- NULL" \
+          -e "cat('\n\n*** Results ***\n\n')" \
+          -e "results" \
+          -e "cat('\n\n')"
+
 # Build and check package with gctorture
 check_gctorture:
 	cd .. && R CMD build --no-build-vignettes $(PKG_NAME)
@@ -115,5 +165,8 @@ configure: configure.ac
 
 clean:
 	./cleanup
+	-rm -rf revdep
 
-.PHONY: all readme install roxygen sync_libgit2 Makevars check check_gctorture check_valgrind valgrind clean
+.PHONY: all readme install roxygen sync_libgit2 Makevars check check_gctorture \
+        check_valgrind revdep revdep_install revdep_check revdep_results valgrind \
+        clean