55 lines
1.6 KiB
R
55 lines
1.6 KiB
R
library(future)
|
|
future::plan(multisession)
|
|
future::plan(sequential)
|
|
time = Sys.time()
|
|
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/rhel9/latest/src/contrib/Archive"), recurse = T)
|
|
Sys.time() - time
|
|
|
|
|
|
|
|
archive <- llply(dirs, function(dir) {
|
|
files <- list.files(dir, recursive = FALSE, full.names = TRUE, pattern = "*.tar.gz")
|
|
if (length(files) == 0) {
|
|
print(paste0("Error: Empty directory: ", dir))
|
|
return(NULL)
|
|
}
|
|
info <- file.info(files)
|
|
|
|
tryCatch({
|
|
rownames(info) <- paste0(basename(dirname(files)), "/", basename(files))
|
|
}, error = function(e) {
|
|
print(paste0("Error: Exception catched for Archived directory: ", dir))
|
|
print(e)
|
|
return(NULL)
|
|
})
|
|
|
|
info
|
|
})
|
|
|
|
tryCatch({
|
|
rownames(info) <- paste0(basename(dirname(files)), "/", basename(files))
|
|
}, error = function(e) {
|
|
print(paste0("Error: Exception catched for Archived directory: ", dir))
|
|
print(e)
|
|
return(NULL)
|
|
})
|
|
|
|
|
|
|
|
|
|
curl::curl_download("https://cran.devxy.io/amd64/rhel9/latest/src/contrib/PACKAGES.db", "PACKAGES.db")
|
|
con = DBI::dbConnect(RSQLite::SQLite(), "PACKAGES.db")
|
|
df = DBI::dbReadTable(con, "packages")
|
|
|
|
cranlike:::write_packages_files("/tmp", "PACKAGES.db")
|
|
|
|
# check
|
|
which(grepl("digest", df$Package))
|
|
which(grepl("digest", df$Package))
|
|
|
|
system("cat /tmp/PACKAGES | grep '^Package: digest' | wc -l")
|
|
|
|
|
|
curl::curl_fetch_memory("https://cloud.r-project.org/src/contrib/Meta/archive.rds")
|
|
remotes = readRDS(url("https://cloud.r-project.org/src/contrib/Meta/archive.rds", "rb"))
|
|
packages = readRDS(url("https://cran.devxy.io/arm64/noble/latest/src/contrib/PACKAGES.rds", "rb"))
|