check_documentation() yields a more informational error message when …

…devtools::document() changed files

relevant for #67

R/check_description.R

@@ -174,7 +174,7 @@ tidy_desc <- function(x = ".") {
 
 unchanged_repo <- function(repo, old_status) {
   current_status <- status(repo)
-  identical(
+  ok <- identical(
     current_status$staged,
     old_status$staged
   ) &&
@@ -186,6 +186,15 @@ unchanged_repo <- function(repo, old_status) {
       current_status$untracked,
       old_status$untracked
     )
+  new_files <- unlist(current_status)
+  old_files <- unlist(old_status)
+  changes <- c(
+    new_files[!new_files %in% old_files], old_files[!old_files %in% new_files]
+  )
+  attr(ok, "files") <- sprintf(
+    "changed files:\n%s", paste(changes, collapse = "\n")
+  )
+  return(ok)
 }
 
 #' Check the license of a package

R/check_documentation.R

@@ -66,11 +66,15 @@ check_documentation <- function(x = ".") {
   repo <- repository(x$get_path)
   status_before <- status(repo)
   document(x$get_path)
+  detect_changes <- unchanged_repo(repo, status_before)
+  si <- session_info(pkgs = "roxygen2")
   doc_error <- c(
     doc_error,
-    "Missing documentation. Run `devtools::document()`"[
-      !unchanged_repo(repo, status_before)
-    ]
+    sprintf(
+      "Running `devtools::document()` with roxygen2 %s %s",
+      si$packages$loadedversion[si$packages$package == "roxygen2"],
+      attr(detect_changes, "files")
+    )[!detect_changes]
   )
 
   if (file_test("-f", file.path(x$get_path, "README.Rmd"))) {