set mirror

This commit is contained in:
Patrick Schratz 2024-08-30 09:34:21 +02:00
commit d10483d4e2
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -38,7 +38,7 @@ archive_package <- function(
# only archive if more than one package exists in the root # only archive if more than one package exists in the root
if (length(all_versions) > 1) { if (length(all_versions) > 1) {
# get most recent version from CRAN # get most recent version from CRAN
last_version <- available.packages()[.x, "Version"] last_version <- available.packages("https://cloud.r-project.org")[.x, "Version"]
# check if last version is available in repo # check if last version is available in repo
if (any(grepl(last_version, all_versions))) { if (any(grepl(last_version, all_versions))) {
index <- which(grepl(last_version, all_versions)) index <- which(grepl(last_version, all_versions))