build-cran-binaries/local/test-package-loading.R
pat-s a9ad907f9c
chore(local): add S3 migration and CRAN-source helper scripts
- migrate-s3-hetzner-to-backblaze.sh: rclone-based bucket migration helper.
- find-R-api-packages.sh: scan CRAN package sources for a C-API usage pattern.
- query-pkgs-without-old-versions.R, test-package-loading.R: ad-hoc helpers.
2026-06-14 13:02:48 +02:00

331 lines
4.9 KiB
R

install.packages(
"pak",
repos = sprintf(
"https://r-lib.github.io/p/pak/stable/%s/%s/%s",
.Platform$pkgType,
R.Version()$os,
R.Version()$arch
)
)
Sys.setenv(PKG_SYSREQS = TRUE)
all_pkgs <- rownames(available.packages())
to_skip = c("ABRSQOL", "ACA", "ACE.CoCo")
all_pkgs = setdiff(all_pkgs, to_skip)
for (i in all_pkgs) {
message(sprintf("\nInstalling %s", i))
pak::pkg_install(i)
library(i, character.only = TRUE)
}
# Example data
all_pkgs <- rownames(available.packages())
to_skip <- c(
"ABRSQOL",
"ACA",
"ACE.CoCo",
"ACEsimFit",
"ACNE",
"absorber",
"adapt4pv",
"adaptMCMC",
"addhaz",
"ADDT",
"ahaz",
"arm",
"arules",
"arulesCBA",
"aster2",
"BayesFactor",
"bc3net",
"bgsmtr",
"biglasso",
"BinNonNor",
"BinNor",
"bioassayR",
"birankr",
"BiRewire",
"bolasso",
"Boptbd",
"Brobdingnag",
"BSW",
"BTLLasso",
"bvartools",
"cAIC4",
"Category",
"celda",
"centiserve",
"cjoint",
"clinical",
"clipper",
"CodataGS",
"conos",
"CopulaInference",
"covEB",
"cplm",
"CRTgeeDR",
"cthreshER",
"ctmcmove",
"curephEM",
"CVST",
"dcGSA",
"dclone",
"dcsvm",
"DelayedArray",
"dglars",
"dhglm",
"disordR",
"distrom",
"dmm",
"DNABarcodes",
"DoubleCone",
"DRR",
"DTRlearn2",
"DWDLargeR",
"eds",
"EMCluster",
"EMMREML",
"evalITR",
"EventPointer",
"evola",
"excursions",
"expm",
"fanc",
"FAS",
"fastadi",
"fastPLS",
"fastRG",
"fdaPDE",
"flare",
"FoReco",
"frailtyHL",
"freebird",
"FSTpackage",
"gamlr",
"gamlss.lasso",
"gamm4",
"gbmt",
"gdim",
"gdistance",
"GeDS",
"geeM",
"genlasso",
"GenOrd",
"GenoScan",
"geomorph",
"geostatsp",
"GhostKnockoff",
"GIGSEA",
"GlarmaVarSel",
"glmm",
"glmmrBase",
"glmmrOptim",
"glmnet",
"glober",
"GPvam",
"graphpcor",
"gremlin",
"growthrate",
"grpCox",
"GSD",
"HelpersMG",
"hglm",
"hglm.data",
"hibayes",
"hierSDR",
"HMTL",
"hsem",
"ibmdbR",
"inca",
"INLAspacetime",
"INLAtools",
"invertiforms",
"irlba",
"islasso",
"ISLET",
"isotonic.pen",
"jordan",
"kinship2",
"KnockoffScreen",
"lcpm",
"leidenAlg",
"lfe",
"lingmatch",
"LKT",
"lme4",
"lme4breeding",
"lme4GS",
"logcondiscr",
"LPmerge",
"LRMF3",
"MAP",
"marcox",
"markovchain",
"MatrixExtra",
"matter",
"MBC",
"mcen",
"mclogit",
"MCMCglmm",
"mdhglm",
"MDPtoolbox",
"mediation",
"mefa4",
"metafor",
"mgwrsar",
"mi",
"midasml",
"mind",
"monocle",
"msda",
"MuData",
"MultiGlarmaVarSel",
"MultiOrd",
"MultiVarSel",
"mvglmmRank",
"N2R",
"nadiv",
"NBtsVarSel",
"NegBinBetaBinreg",
"NetworkRiskMeasures",
"neuroim2",
"NOISeq",
"numbat",
"optbdmaeAT",
"optimbase",
"OptimModel",
"optrcdmaeAT",
"OrdNor",
"pagoda2",
"PCovR",
"pedgene",
"pedigree",
"pedigreemm",
"pense",
"PERMANOVA",
"phateR",
"PhylogeneticEM",
"pleio",
"POINT",
"PoisBinNonNor",
"PoisBinOrd",
"PoisBinOrdNonNor",
"PoisBinOrdNor",
"PoisNonNor",
"PoisNor",
"PRISMA",
"ProbitSpatial",
"prodest",
"psqn",
"qlcMatrix",
"qpcR",
"QRM",
"quadrupen",
"QZ",
"ramps",
"randnet",
"randPedPCA",
"rBMF",
"RCBR",
"RealVAMS",
"REBayes",
"recommenderlab",
"Rediscover",
"reglogit",
"RESET",
"RGE",
"RGENERATEPREC",
"riemtan",
"RNewsflow",
"robustlmm",
"rsparse",
"rSPDE",
"rwc",
"S4Arrays",
"saeMSPE",
"sbw",
"scITD",
"scoup",
"sdwd",
"SEAGLE",
"sensory",
"serrsBayes",
"sglasso",
"sharpPen",
"SiPSiC",
"SKAT",
"snpReady",
"snpStats",
"softImpute",
"sommer",
"soptdmaeA",
"SOR",
"SparseArray",
"SparseChol",
"sparseLRMatrix",
"sparsenet",
"sparsenetgls",
"sparsestep",
"spatialprobit",
"spatialreg",
"spatstat.sparse",
"speedglm",
"sRDA",
"sSDR",
"ssfa",
"stcos",
"StratifiedSampling",
"sureLDA",
"survey",
"surveyvoi",
"svydiags",
"systemfit",
"TargetScore",
"text2map",
"textir",
"textmineR",
"textTinyR",
"tmvtnorm",
"TPEA",
"triversity",
"tsapp",
"tvReg",
"uwot",
"vagam",
"VAM",
"WaveSampling",
"WGScan",
"wordspace",
"workflowsets",
"ACSSpack",
"ADDT",
"AER"
)
# Find the position of the last package in to_skip within all_pkgs
last_skip <- tail(to_skip, 1)
# Find its position in all_pkgs (returns NA if not found)
start_pos <- match(last_skip, all_pkgs)
# If not found, start from the beginning; else, start after last_skip
if (is.na(start_pos)) {
to_process <- all_pkgs
} else {
to_process <- all_pkgs[(start_pos + 1):length(all_pkgs)]
}
if (length(to_process) == 0) {
message("All packages have been processed.")
} else {
for (i in to_process) {
message(sprintf("\nInstalling %s", i))
pak::pkg_install(i)
library(i, character.only = TRUE)
}
# Update to_skip to include all up to the last processed
to_skip <- all_pkgs[1:(last_skip_pos + length(to_process))]
}