devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 11 Pull requests 1 Releases Activity

minor

Browse source
This commit is contained in:
Patrick Schratz 2024-07-23 23:22:25 +02:00
commit 7610e0507b
Signed by: pat-s
GPG key ID: 3C6318841EF78925
2 changed files with 38 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

7
R/build_binaries.R
View file

@ -13,6 +13,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
install_system_dependencies = TRUE) {
cli::cli_h2("Preparations")
codename <- set_codename(codename)
cli::cli_alert_warning("DEBUG: codename {codename}.")
if (is.null(r_version_minor)) {
r_version_minor <- sub("R version (\\d+\\.\\d+).*", "\\1", R.Version()$version.string)
@ -20,9 +21,11 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
# create directory structure
dir_out_bin <- set_bin_path(r_version_minor, build_for_minor, local_build_root, codename)
cli::cli_alert_warning("DEBUG: dir_out_bin {dir_out_bin}.")
dir_out_src <- sprintf("%s/src/contrib/Archive", local_build_root)
cli::cli_alert_info("{.fun build_binary_package}: Creating dir {.path {dir_out_bin}}.")
cli::cli_alert_info("{.fun build_binary_package}: Creating dir {.path {dir_out_src}}.")
cli::cli_alert_info("{.fun build_binary_package}: Creating bin dir {.path {dir_out_bin}}.")
cli::cli_alert_info("{.fun build_binary_package}: Creating src dir {.path {dir_out_src}}.")
dir.create(sprintf("%s/Archive", dir_out_bin), sprintf("%s/Archive", dir_out_src),
recursive = TRUE
)

6
R/helpers.R
View file

@ -26,8 +26,11 @@ set_codename <- function(codename) {
return(codename)
}
#' Helper function to set the path for binary package outputs
#' @export
set_bin_path <- function(r_version_minor, build_for_minor, local_build_root, codename) {
set_bin_path <- function(
r_version_minor, build_for_minor,
local_build_root, codename) {
if (!build_for_minor) {
path <- sprintf(
"%s/__linux__/%s/latest/src/contrib",
@ -39,6 +42,7 @@ set_bin_path <- function(r_version_minor, build_for_minor, local_build_root, cod
local_build_root, codename, r_version_minor
)
}
cli::cli_alert_warning("DEBUG: path {path}.")
return(path)
}