Remove unused internal code

This is internal, un-exported code that is no longer used elsewhere in
devtools. I think it best for future maintenance concerns that it just be
removed.

R/R.R

@@ -29,17 +29,3 @@ r_env_vars <- function() {
 
   vars
 }
-
-# Create a temporary .Rprofile based on the current "repos" option
-# and return a named vector that corresponds to environment variables
-# that need to be set to use this .Rprofile
-r_profile <- function() {
-  tmp_user_profile <- file.path(tempdir(), "Rprofile-devtools")
-  tmp_user_profile_con <- file(tmp_user_profile, "w")
-  on.exit(close(tmp_user_profile_con), add = TRUE)
-  writeLines("options(repos =", tmp_user_profile_con)
-  dput(getOption("repos"), tmp_user_profile_con)
-  writeLines(")", tmp_user_profile_con)
-
-  c(R_PROFILE_USER = tmp_user_profile)
-}

R/release.R

@@ -91,7 +91,7 @@ release <- function(pkg = ".", check = FALSE, args = NULL) {
         cat_rule()
       }
       cran_url <- paste0(
-        cran_mirror(), "/web/checks/check_results_",
+        getOption("repos")[["CRAN"]], "/web/checks/check_results_",
         pkg$package, ".html"
       )
       if (yesno(
@@ -386,3 +386,13 @@ flag_release <- function(pkg = ".") {
   writeLines(msg, file.path(pkg$path, "CRAN-RELEASE"))
   usethis::use_build_ignore("CRAN-RELEASE")
 }
+
+cran_mirror <- function(repos = getOption("repos")) {
+  repos[repos == "@CRAN@"] <- "http://cloud.r-project.org"
+
+  if (is.null(names(repos))) {
+    names(repos) <- "CRAN"
+  }
+
+  repos[["CRAN"]]
+}