account for architecture when building and uploading

This commit is contained in:
Patrick Schratz 2024-09-05 13:44:02 +02:00
commit 533fa440aa
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -39,15 +39,23 @@ set_codename <- function(codename) {
set_bin_path <- function(
r_minor_version, build_for_minor,
local_build_root, codename) {
local_arch = Sys.info()[["machine"]]
if (grepl("arm64", local_arch) || grepl("aarch64", local_arch)) {
arch <- "arm64"
} else if (grepl("amd64", local_arch) || grepl("x86_64", local_arch)) {
arch <- "amd64"
}
if (!build_for_minor) {
path <- sprintf(
"%s/arm64/%s/latest/src/contrib",
local_build_root, codename
"%s/%s/%s/latest/src/contrib",
local_build_root, arch, codename
)
} else {
path <- sprintf(
"%s/arm64/%s/%s/latest/src/contrib",
local_build_root, codename, r_minor_version
"%s/%s/%s/%s/latest/src/contrib",
local_build_root, arch, codename, r_minor_version
)
}
return(path)