P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-03-19 15:42:27 +01:00
Code Releases Activity

Require cli >= 3.0.0 for cli_inform/cli_warn/cli_abort availability checks

Browse Source 
cli_inform, cli_warn, and cli_abort were introduced in cli 3.0.0.
Add min_version = "3.0.0" (as character) to all four pkg_is_available("cli")
checks so older cli versions fall back to base R messaging.

https://claude.ai/code/session_01XHWLohiSTdZvCutwD7ag2b
This commit is contained in:
Claude
2026-03-18 22:14:30 +00:00
parent 0cc154257a
commit b7edf3e548
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/aa_helper_functions.R
View File

@@ -487,7 +487,7 @@ word_wrap <- function(...,
as_note = FALSE, as_note = FALSE,
width = 0.95 * getOption("width"), width = 0.95 * getOption("width"),
extra_indent = 0) { extra_indent = 0) {
if (pkg_is_available("cli")) { if (pkg_is_available("cli", min_version = "3.0.0")) {
return(paste0(c(...), collapse = "")) return(paste0(c(...), collapse = ""))
} }
msg <- paste0(c(...), collapse = "") msg <- paste0(c(...), collapse = "")
@@ -524,7 +524,7 @@ word_wrap <- function(...,
message_ <- function(..., message_ <- function(...,
appendLF = TRUE, appendLF = TRUE,
as_note = TRUE) { as_note = TRUE) {
if (pkg_is_available("cli")) { if (pkg_is_available("cli", min_version = "3.0.0")) {
msg <- paste0(c(...), collapse = "") msg <- paste0(c(...), collapse = "")
if (isTRUE(as_note)) { if (isTRUE(as_note)) {
cli::cli_inform(c("i" = msg), .envir = parent.frame()) cli::cli_inform(c("i" = msg), .envir = parent.frame())
@@ -540,7 +540,7 @@ message_ <- function(...,
warning_ <- function(..., warning_ <- function(...,
immediate = FALSE, immediate = FALSE,
call = FALSE) { call = FALSE) {
if (pkg_is_available("cli")) { if (pkg_is_available("cli", min_version = "3.0.0")) {
msg <- paste0(c(...), collapse = "") msg <- paste0(c(...), collapse = "")
cli::cli_warn(msg, .envir = parent.frame()) cli::cli_warn(msg, .envir = parent.frame())
} else { } else {
@@ -554,7 +554,7 @@ warning_ <- function(...,
# - wraps text to never break lines within words (plain-text fallback) # - wraps text to never break lines within words (plain-text fallback)
stop_ <- function(..., call = TRUE) { stop_ <- function(..., call = TRUE) {
msg <- paste0(c(...), collapse = "") msg <- paste0(c(...), collapse = "")
if (pkg_is_available("cli")) { if (pkg_is_available("cli", min_version = "3.0.0")) {
if (isTRUE(call)) { if (isTRUE(call)) {
call_obj <- sys.call(-1) call_obj <- sys.call(-1)
} else if (!isFALSE(call)) { } else if (!isFALSE(call)) {