Correct issue w/ over-writing package documentation

elipousson · Feb 26, 2024 · fbc3bbd · fbc3bbd
1 parent bf28cb9
commit fbc3bbd
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/path_document.R b/R/path_document.R
@@ -163,15 +163,16 @@ path_document <- function(path,
     overwrite = overwrite
   )
 
-  withr::with_dir(
+  usethis::with_project(
     pkg_dir,
     {
       if (markdown) {
         use_roxygen_md(overwrite = TRUE)
       }
 
       use_package_doc(FALSE)
-    }
+    },
+    quiet = TRUE
   )
 
   suppressPackageStartupMessages(
@@ -182,6 +183,10 @@ path_document <- function(path,
       clean = clean
     )
   )
+
+  suppressMessages(usethis::proj_get())
+
+  invisible(pkg_dir)
 }
 
 #' [path_roxygenise()] is the same as [path_document()]