danger -> warning for debug mode

This commit is contained in:
Patrick Schratz 2024-07-26 11:34:01 +02:00
commit f42d470e34
Signed by: pat-s
GPG key ID: 3C6318841EF78925
2 changed files with 4 additions and 4 deletions

View file

@ -49,8 +49,8 @@ add_to_package_index <- function(
pkgs_upload_remote <- sprintf("%sPACKAGES", remote_bin_dir)
if (debug) {
cli::cli_alert_danger("DEBUG: PACKAGES UPLOAD local dir: {pkgs_upload_local}")
cli::cli_alert_danger("DEBUG: PACKAGES UPLOAD remote dir: {pkgs_upload_remote}")
cli::cli_alert_warning("DEBUG: PACKAGES UPLOAD local dir: {pkgs_upload_local}")
cli::cli_alert_warning("DEBUG: PACKAGES UPLOAD remote dir: {pkgs_upload_remote}")
}
dummy <- s3fs::s3_file_upload(pkgs_upload_local, pkgs_upload_remote, overwrite = TRUE)

View file

@ -19,8 +19,8 @@ upload_single_binary_to_s3 <- function(
remote_bin_path <- set_bin_path(r_minor_version, build_for_minor, local_build_root = bucket, codename)
if (debug) {
cli::cli_alert_danger("DEBUG: local_bin_path: {local_bin_path}")
cli::cli_alert_danger("DEBUG: remote_bin_path: {remote_bin_path}")
cli::cli_alert_warning("DEBUG: local_bin_path: {local_bin_path}")
cli::cli_alert_warning("DEBUG: remote_bin_path: {remote_bin_path}")
}
s3fs::s3_file_system(