Create revdep directory if it doesn't exist

Fixes #1178
r-lib · Jun 2, 2016 · ca34be3 · ca34be3
1 parent 23eac12
commit ca34be3
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # devtools 1.11.1.9000
 
+* `revdep_check()` will now create the `revdep/` directory if it does not
+  already exist (#1178).
+
 * `check_man()` now prints a message if not problems are found (#1187).
 
 * `install_dev_deps()` gets everything you need to start development on source

diff --git a/R/revdep.R b/R/revdep.R
@@ -121,6 +121,12 @@ revdep_check <- function(pkg = ".", recursive = FALSE, ignore = NULL,
                          check_dir = NULL) {
 
   pkg <- as.package(pkg)
+
+  revdep_path <- file.path(pkg$path, "revdep")
+  if (!file.exists(revdep_path)) {
+    dir.create(revdep_path)
+  }
+
   if (file.exists(revdep_cache_path(pkg))) {
     stop("Cache file `revdep/.cache.rds` exists.\n",
       "Use `revdep_check_resume()` to resume\n",