Use stable mirror again

r-universe-org · Jun 3, 2024 · 5a0c7fa · 5a0c7fa
1 parent 5147351
commit 5a0c7fa
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/archived.R b/R/archived.R
@@ -32,7 +32,7 @@ update_archived_csv <- function(){
 }
 
 cran_archived_db <- function(){
-  con <- url("https://cran.r-project.org/src/contrib/PACKAGES.in")
+  con <- url("https://cloud.r-project.org/src/contrib/PACKAGES.in")
   on.exit(close(con))
   db <- as.data.frame(read.dcf(con))
   comments <- db[['X-CRAN-Comment']]

diff --git a/R/cran.R b/R/cran.R
@@ -7,7 +7,7 @@
 cran_registry <- function(){
   tmp <- tempfile()
   on.exit(unlink(tmp))
-  curl::curl_download('https://cran.r-project.org/web/packages/packages.rds', destfile = tmp)
+  curl::curl_download('https://cloud.r-project.org/web/packages/packages.rds', destfile = tmp)
   packages <- as.data.frame(readRDS(tmp), stringsAsFactors = FALSE)
   winonly <- which(packages$OS_type == 'windows')
   if(length(winonly)){

diff --git a/R/metacran.R b/R/metacran.R
@@ -5,7 +5,7 @@
 #' @export
 check_metacran <- function(){
   # Current CRAN state
-  db <- available.packages(repos = 'https://cran.r-project.org')
+  db <- available.packages(repos = 'https://cloud.r-project.org')
   db <- as.data.frame(db[,c("Package", "Version")])
   db <- db[order(db$Package, method = 'radix'),]
   db$Metacran = NA_character_