rename renv to avoid confusion over name (#1030)

aronatkins · web-flow · commit ec827b4ab3fb · 2023-12-15T15:24:14.000-05:00
diff --git a/R/bundlePackageRenv.R b/R/bundlePackageRenv.R
@@ -28,14 +28,14 @@ snapshotRenvDependencies <- function(bundleDir,
 }
 
 parseRenvDependencies <- function(bundleDir, snapshot = FALSE) {
-  renv <- jsonlite::read_json(renvLockFile(bundleDir))
+  renvLock <- jsonlite::read_json(renvLockFile(bundleDir))
 
   repos <- setNames(
-    vapply(renv$R$Repositories, "[[", "URL", FUN.VALUE = character(1)),
-    vapply(renv$R$Repositories, "[[", "Name", FUN.VALUE = character(1))
+    vapply(renvLock$R$Repositories, "[[", "URL", FUN.VALUE = character(1)),
+    vapply(renvLock$R$Repositories, "[[", "Name", FUN.VALUE = character(1))
   )
   deps <- standardizeRenvPackages(
-    renv$Packages,
+    renvLock$Packages,
     repos,
     biocPackages = biocPackages(bundleDir)
   )

Original file line number	Diff line number	Diff line change
`@@ -28,14 +28,14 @@ snapshotRenvDependencies <- function(bundleDir,`
`28`	`28`	`}`
`29`	`29`
`30`	`30`	`parseRenvDependencies <- function(bundleDir, snapshot = FALSE) {`
`31`		`- renv <- jsonlite::read_json(renvLockFile(bundleDir))`
	`31`	`+ renvLock <- jsonlite::read_json(renvLockFile(bundleDir))`
`32`	`32`
`33`	`33`	`repos <- setNames(`
`34`		`- vapply(renv$R$Repositories, "[[", "URL", FUN.VALUE = character(1)),`
`35`		`- vapply(renv$R$Repositories, "[[", "Name", FUN.VALUE = character(1))`
	`34`	`+ vapply(renvLock$R$Repositories, "[[", "URL", FUN.VALUE = character(1)),`
	`35`	`+ vapply(renvLock$R$Repositories, "[[", "Name", FUN.VALUE = character(1))`
`36`	`36`	`)`
`37`	`37`	`deps <- standardizeRenvPackages(`
`38`		`- renv$Packages,`
	`38`	`+ renvLock$Packages,`
`39`	`39`	`repos,`
`40`	`40`	`biocPackages = biocPackages(bundleDir)`
`41`	`41`	`)`