Add is_renv_project criteria looking for an renv.lock file

Author: gadenbuie

NAMESPACE

@@ -30,6 +30,7 @@ export(is_projectile_project)
 export(is_quarto_project)
 export(is_r_package)
 export(is_remake_project)
+export(is_renv_project)
 export(is_root_criterion)
 export(is_rstudio_project)
 export(is_svn_root)

R/root.R

@@ -321,6 +321,9 @@ is_drake_project <- has_dir(".drake")
 #' @export
 is_pkgdown_project <- has_file("_pkgdown.yml") | has_file("_pkgdown.yaml") | has_file("pkgdown/_pkgdown.yml") | has_file("inst/_pkgdown.yml")
 
+#' @export
+is_renv_project <- has_file("renv.lock", contents = '"Packages":\\s*\\{')
+
 #' @export
 is_projectile_project <- has_file(".projectile")
 
@@ -355,6 +358,7 @@ criteria <- structure(
     is_r_package = is_r_package,
     is_remake_project = is_remake_project,
     is_pkgdown_project = is_pkgdown_project,
+    is_renv_project = is_renv_project,
     is_projectile_project = is_projectile_project,
     is_quarto_project = is_quarto_project,
     is_git_root = is_git_root,
@@ -412,6 +416,14 @@ str.root_criteria <- function(object, ...) {
 #' @export
 "is_pkgdown_project"
 
+#' @details
+#' `is_renv_project` looks for an `renv.lock` file.
+#'
+#' @format NULL
+#' @rdname criteria
+#' @export
+"is_renv_project"
+
 #' @details
 #' `is_projectile_project` looks for a `.projectile` file.
 #'