Remove more rlang variant remnants (#1870)

R/edition.R

@@ -73,28 +73,3 @@ local_edition <- function(x, .env = parent.frame()) {
 edition_get <- function() {
   the$edition %||% find_edition(".")
 }
-
-
-find_dep_version <- function(name, path, package = NULL) {
-  desc <- find_description(path, package)
-  if (is.null(desc)) {
-    return(NULL)
-  }
-
-  deps <- desc$get_deps()
-  i <- match(name, deps[["package"]])
-  if (is_na(i)) {
-    return(NULL)
-  }
-
-  dep <- deps[[i, "version"]]
-  dep <- strsplit(dep, " ")[[1]]
-  if (!is_character(dep, 2) && !is_string(dep[[1]], ">=")) {
-    return(NULL)
-  }
-
-  dep[[2]]
-}
-has_dep <- function(name, path, package = NULL) {
-  !is.null(find_dep_version(name, path, package = package))
-}

R/local.R

@@ -174,10 +174,6 @@ local_test_directory <- function(path, package = NULL, .env = parent.frame()) {
   # Set edition before changing working directory in case path is relative
   local_edition(find_edition(path, package), .env = .env)
 
-  withr::local_options(
-    "testthat:::rlang_dep" = has_dep("rlang", path, package),
-    .local_envir = .env
-  )
   withr::local_dir(
     path,
     .local_envir = .env