simplify repos handling

R/init.R

@@ -339,10 +339,8 @@ renv_init_repos <- function(repos = getOption("repos")) {
 
   if (isdefault) {
     repos[["CRAN"]] <- config$ppm.url()
-    return(repos)
   }
 
-  # repos appears to have been configured separately; just use it
   repos
 
 }

R/lockfile.R

@@ -25,52 +25,9 @@ renv_lockfile_init_r_version <- function(project) {
 
 }
 
-renv_lockfile_init_r_repos <- function(project) {
-
-  repos <- getOption("repos")
-
-  # save names
-  nms <- names(repos)
-
-  # force as character
-  repos <- as.character(repos)
-
-  # clear RStudio attribute
+renv_lockfile_init_r_repos <- function(project, repos = getOption("repos")) {
   attr(repos, "RStudio") <- NULL
-
-  # check for default repositories
-  #
-  # note that if the user is using RStudio, we only want to override
-  # the repositories if they haven't explicitly set their own repo URL
-  #
-  # https://github.com/rstudio/renv/issues/1782
-  rstudio <- structure(
-    list(CRAN = "https://cran.rstudio.com/"),
-    RStudio = TRUE
-  )
-
-  isdefault <-
-    identical(repos, list(CRAN = "@CRAN@")) ||
-    identical(repos, rstudio)
-
-  if (isdefault) {
-    repos[["CRAN"]] <- config$ppm.url()
-  }
-
-  # remove PPM bits from URL
-  if (renv_ppm_enabled()) {
-    pattern <- "/__[^_]+__/[^/]+/"
-    repos <- sub(pattern, "/", repos)
-  }
-
-  # force as list
-  repos <- as.list(repos)
-
-  # ensure names
-  names(repos) <- nms
-
-  repos
-
+  convert(repos, "list")
 }
 
 renv_lockfile_init_r <- function(project) {