Merge pull request #711 from rstudio/toph-update-renv

Update vendored `renv` with `renv:::vendor()`

Author: toph-allen

.lintr

@@ -12,7 +12,7 @@ linters: linters_with_defaults(
   )
 exclusions: list(
     # renv is vendored code, not ours.
-    "inst/resources/renv.R",
+    "inst/vendor/renv.R",
     # test resources that are not "source".
     "tests/testthat/lockfiles",
     "tests/testthat/other-packages",

NEWS.md

@@ -1,5 +1,8 @@
 # Packrat 0.9.2 (UNRELEASED)
 
+- Update vendored `renv` update to include functions for normalizing and
+  transforming Posit Package Manager URLs. (#711)
+
 # Packrat 0.9.1
 
 - Fix an issue where Packrat would fail to restore packages installed from

R/renv.R

@@ -1,7 +1,76 @@
 
-renv <- new.env()
+#
+# renv 0.17.3-62: A dependency management toolkit for R.
+# Generated using `renv:::vendor()` at 2023-06-05 17:36:24.
+#
 
-loadRenv <- function() {
-  script <- system.file("resources/renv.R", package = "packrat")
+
+renv <- new.env(parent = new.env())
+
+renv$initialize <- function() {
+
+  # set up renv + imports environments
+  attr(renv, "name") <- "embedded:renv"
+  attr(parent.env(renv), "name") <- "imports:renv"
+
+  # set up metadata environment
+  metadata <- list(
+    embedded = TRUE,
+    version  = "0.17.3-62"
+  )
+
+  # assign into renv
+  assign("_renv_metadata", as.environment(metadata), envir = renv)
+
+  # get imports
+  imports <- list(
+    utils = c(
+      "Rprof",
+      "URLencode",
+      "adist",
+      "available.packages",
+      "browseURL",
+      "citation",
+      "contrib.url",
+      "download.file",
+      "download.packages",
+      "file.edit",
+      "getCRANmirrors",
+      "head",
+      "help",
+      "install.packages",
+      "installed.packages",
+      "modifyList",
+      "old.packages",
+      "packageDescription",
+      "packageVersion",
+      "read.table",
+      "remove.packages",
+      "sessionInfo",
+      "str",
+      "summaryRprof",
+      "tail",
+      "tar",
+      "toBibtex",
+      "untar",
+      "unzip",
+      "update.packages",
+      "zip"
+    )
+  )
+
+  # load the imports required by renv
+  for (package in names(imports)) {
+    namespace <- asNamespace(package)
+    functions <- imports[[package]]
+    list2env(mget(functions, envir = namespace), envir = parent.env(renv))
+  }
+
+  # source renv into the aforementioned environment
+  script <- system.file("vendor/renv.R", package = .packageName)
   sys.source(script, envir = renv)
+
+  # remove our initialize method when we're done
+  rm(list = "initialize", envir = renv)
+
 }

R/zzz.R

@@ -11,6 +11,6 @@
       setenv(key, val)
   })
 
-  loadRenv()
+  renv$initialize()
 
 }