Check for 'Package' in DESCRIPTION when finding root

Because usethis relies on this, probably accidentally, in a test case.
r-lib · Dec 10, 2023 · ded7f50 · ded7f50
1 parent a618bf6
commit ded7f50
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/find-package-root.R b/R/find-package-root.R
@@ -17,7 +17,9 @@ find_package_root <- function(path = ".") {
   )
   max_depth <- 100
   for (i in 1:max_depth) {
-    if (file.exists(file.path(cur_path, "DESCRIPTION"))) {
+    dsc_path <- file.path(cur_path, "DESCRIPTION")
+    if (file.exists(dsc_path) &&
+      any(grepl("^Package: ", readLines(dsc_path)))) {
       return(cur_path)
     } else if (is_root(cur_path)) {
       stop(errmsg)