Drop rprojroot dependency

DESCRIPTION

@@ -33,7 +33,6 @@ Imports:
     processx (>= 3.4.2),
     ps,
     R6,
-    rprojroot,
     stats,
     utils,
     zip (>= 2.3.0)

NAMESPACE

@@ -90,7 +90,6 @@ importFrom(pkgbuild,pkgbuild_process)
 importFrom(prettyunits,pretty_bytes)
 importFrom(prettyunits,pretty_dt)
 importFrom(prettyunits,pretty_sec)
-importFrom(rprojroot,find_package_root_file)
 importFrom(stats,na.omit)
 importFrom(utils,modifyList)
 importFrom(utils,untar)

R/find-package-root.R

@@ -0,0 +1,29 @@
+find_package_root <- function(path = ".") {
+  is_root <- function(path) {
+    identical(
+      normalizePath(path, winslash = "/"),
+      normalizePath(dirname(path), winslash = "/")
+    )
+  }
+
+  if (!file.exists(path)) {
+    stop("Path does not exist: ", path)
+  }
+  cur_path <- normalizePath(path, winslash = "/")
+  errmsg <- paste0(
+    "Could not find R package in `",
+    path,
+    "` or its parent directories."
+  )
+  max_depth <- 100
+  for (i in 1:max_depth) {
+    if (file.exists(file.path(cur_path, "DESCRIPTION"))) {
+      return(cur_path)
+    } else if (is_root(cur_path)) {
+      stop(errmsg)
+    } else {
+      cur_path <- dirname(cur_path)
+    }
+  }
+  stop(errmsg, " Checked ", max_depth, " parent directories.") # nocov
+}

R/solve.R

@@ -1115,11 +1115,9 @@ pkgplan_install_plan <- function(self, private, downloads) {
   sol
 }
 
-#' @importFrom rprojroot find_package_root_file
 #' @importFrom jsonlite unbox
 
 pkgplan_export_install_plan <- function(self, private, plan_file, version) {
-  plan_file <- plan_file %||% find_package_root_file("resolution.json")
   pkgs <- pkgplan_install_plan(self, private, downloads = FALSE)
   cols <- unique(c(
     "ref", "package", "version", "type", "direct", "binary",

tests/testthat/helper.R

@@ -33,16 +33,18 @@ test_temp_dir <- function(pattern = "test-dir-", envir = parent.frame()) {
 
 test_package_root <- function() {
   x <- tryCatch(
-    rprojroot::find_package_root_file(),
+    find_package_root(),
     error = function(e) NULL)
 
   if (!is.null(x)) return(x)
 
   pkg <- testthat::testing_package()
   x <- tryCatch(
-    rprojroot::find_package_root_file(
-      path = file.path("..", "..", "00_pkg_src", pkg)),
-    error = function(e) NULL)
+    find_package_root(
+      path = file.path("..", "..", "00_pkg_src", pkg)
+    ),
+    error = function(e) NULL
+  )
 
   if (!is.null(x)) return(x)
 

tests/testthat/test-find-package-root.R

@@ -0,0 +1,48 @@
+test_that("find_package_root", {
+  tmp <- tempfile()
+  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
+  mkdirp(file.path(tmp, "a", "b", "c", "d"))
+  lns <- "Package: this"
+  writeLines(lns, file.path(tmp, "DESCRIPTION"))
+
+  expect_equal(
+    readLines(file.path(find_package_root(tmp), "DESCRIPTION")),
+    lns
+  )
+
+  expect_equal(
+    readLines(file.path(
+      find_package_root(file.path(tmp, "a")), "DESCRIPTION"
+    )),
+    lns
+  )
+
+  expect_equal(
+    readLines(file.path(
+      find_package_root(file.path(tmp, "a", "b", "c", "d")), "DESCRIPTION"
+    )),
+    lns
+  )
+
+  wd <- getwd()
+  on.exit(setwd(wd), add = TRUE)
+  setwd(file.path(tmp, "a", "b", "c"))
+  expect_equal(
+    readLines(file.path(find_package_root("."), "DESCRIPTION")),
+    lns
+  )
+})
+
+test_that("find_package_root errors", {
+  expect_error(
+    find_package_root(basename(tempfile())),
+    "Path does not exist"
+  )
+
+  if (!file.exists("/DESCRIPTION")) {
+    expect_error(
+      find_package_root("/"),
+      "Could not find R package"
+    )
+  }
+})