Update find_package_root() from desc

Now we also check for '^Package: ` in the `DESCRIPTION` file. This is the previous behavior with rprojroot.
r-lib · Dec 10, 2023 · e9cdf2c · e9cdf2c
1 parent 7a26fb1
commit e9cdf2c
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)