Include directory too

Author: hadley

R/check-doc.R

@@ -90,7 +90,7 @@ check_doc_fields <- function(pkg = ".", fields = c("value", "examples")) {
 
   results <- lapply(stats::setNames(fields, fields), function(field) {
     missing <- !vapply(rd, has_tag, logical(1), tag = field)
-    path_file(paths[missing])
+    path_rel(paths[missing], pkg$path)
   })
 
   for (field in fields) {

tests/testthat/_snaps/check-doc.md

@@ -4,9 +4,9 @@
       check_doc_fields(pkg)
     Message
       ! Missing `\value` section in 1 file:
-      * foo.Rd
+      * man/foo.Rd
       ! Missing `\examples` section in 1 file:
-      * bar.Rd
+      * man/bar.Rd
 
 # check_doc_fields output - all present