3 ms·
All down except for Uruguay. I wrote a quick R script. library(tidyverse) CRAN_mirrors <- read.csv("~/R/R-4.3.1/doc/CRAN_mirrors.csv") repos_up <- function(u
by Stat_red 3y ago
All down except for Uruguay. I wrote a quick R script.
library(tidyverse)
CRAN_mirrors <- read.csv("~/R/R-4.3.1/doc/CRAN_mirrors.csv")
repos_up <- function(url_str) {
host_str <- urltools::url_parse(url_str)$domain
resp <- system(paste("host", host_str), wait = T , intern = T)[1]
!str_detect(resp, "NXDOMAIN")
}
# CRAN_mirrors <- CRAN_mirrors |>
# mutate(UP_10.27.23 = repos_up(URL))
for(e in nrow(CRAN_mirrors)) {
CRAN_mirrors$UP_10.27.23[e] <- repos_up(CRAN_mirrors$URL[e])
}
write.csv(CRAN_mirrors, "CRAN_mirror_status.csv")