Error messagess

error-msg.r

f_error <- function(arg, msg, call = rlang::caller_env()) {
  if (TRUE) {
    # THe naive way
    cli::cli_abort(c("{.arg {arg}} is wrong", msg), call = call)
  }
}
f_error2 <- function(arg, msg, call = rlang::caller_env(), .envir = parent.frame()) {
  if (TRUE) {
    # doesn't work since arg needs to evaluate in current frame, but msg should evaluate in parent frame
    cli::cli_abort(c("{.arg {arg}} is wrong", msg), call = call, .envir = .envir)
  }
}
# works correctly
f_error3 <- function(arg, msg, call = rlang::caller_env(), .envir = parent.frame()) {
  if (TRUE) {
    # evaluate msg with .envir (parent frame)
    msg <- cli::format_message(msg, .envir = .envir)
    # evaluate arg in current frame
    cli::cli_abort(c("{.arg {arg}} is wrong", msg), call = call)
  }
}
# works corrrectly
f_error4 <- function(arg, msg, call = rlang::caller_env(), .envir = parent.frame()) {
  if (TRUE) {
    cli::cli_abort(c("{.arg {arg}} is wrong"), call = call, footer = cli::format_message(msg, .envir = .envir))
  }
}
f_user <- function(f) {
  intermediate <- c("x", "y", "z")
  f(
    "x",
    "not {intermediate}"
  )
}
# not correct
f_user(f_error)
f_user(f_error2)
# correct
f_user(f_error3)
f_user(f_error4)


# Another way, less elegant

f_user2 <- function(f) {
  intermediate <- c("x", "y", "z")
  f(
    "x",
    cli::format_message("not {intermediate}")
  )
}
f_user2(f_error)