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

add deps_verbose arg

Browse source
This commit is contained in:
Patrick Schratz 2024-09-08 13:59:29 +02:00
commit d643ba185c
Signed by: pat-s
GPG key ID: 3C6318841EF78925
3 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/build_binaries.R
View file

@ -13,6 +13,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
local_clone_dir = "/tmp", local_clone_dir = "/tmp",
platform = NULL, platform = NULL,
install_system_dependencies = TRUE, install_system_dependencies = TRUE,
deps_verbose = FALSE,
debug = FALSE, debug = FALSE,
force = FALSE, force = FALSE,
archive = TRUE) { archive = TRUE) {
@ -79,7 +80,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
if (install_system_dependencies) { if (install_system_dependencies) {
tryCatch( tryCatch(
{ {
install_package_system_dependencies(package_name, tag, platform, local_clone_dir) install_package_system_dependencies(package_name, tag, platform, local_clone_dir, deps_verbose)
}, },
# NB: here we need to use conditionMessage() to extract the actual error - as opposed to using $stderr for errors within the tryCatch used in the future* calls # NB: here we need to use conditionMessage() to extract the actual error - as opposed to using $stderr for errors within the tryCatch used in the future* calls
error = function(e) { error = function(e) {

9
R/install-deps.R
View file

@ -2,7 +2,8 @@
install_package_system_dependencies <- function(package_name, install_package_system_dependencies <- function(package_name,
tag, tag,
platform = platform, platform = platform,
local_clone_dir) { local_clone_dir,
deps_verbose = FALSE) {
cli::cli_alert("{.fun install_package_system_dependencies}: Cloning package {.pkg {package_name[1]}} with tag {.field {tail(tag, 1)}}.") cli::cli_alert("{.fun install_package_system_dependencies}: Cloning package {.pkg {package_name[1]}} with tag {.field {tail(tag, 1)}}.")
t1 <- Sys.time() t1 <- Sys.time()
@ -24,7 +25,11 @@ install_package_system_dependencies <- function(package_name,
Sys.setenv(PKG_SYSREQS_PLATFORM = platform) Sys.setenv(PKG_SYSREQS_PLATFORM = platform)
Sys.setenv(PKG_SYSREQS = TRUE) Sys.setenv(PKG_SYSREQS = TRUE)
Sys.setenv(PKG_SYSREQS_VERBOSE = TRUE) Sys.setenv(PKG_SYSREQS_VERBOSE = TRUE)
suppressMessages(pak::local_install_deps(sprintf("%s", local_clone_dir_single))) if (deps_verbose) {
pak::local_install_deps(sprintf("%s", local_clone_dir_single))
} else {
suppressMessages(pak::local_install_deps(sprintf("%s", local_clone_dir_single)))
}
cli::cli_alert("{.fun install_package_system_dependencies}: Removing temporary clone dir at {.path {local_clone_dir_single}}.") cli::cli_alert("{.fun install_package_system_dependencies}: Removing temporary clone dir at {.path {local_clone_dir_single}}.")

1
man/build_binary_package.Rd
View file

@ -14,6 +14,7 @@ build_binary_package(
local_clone_dir = "/tmp", local_clone_dir = "/tmp",
platform = NULL, platform = NULL,
install_system_dependencies = TRUE, install_system_dependencies = TRUE,
deps_verbose = FALSE,
debug = FALSE, debug = FALSE,
force = FALSE, force = FALSE,
archive = TRUE archive = TRUE