如何控制R语言中base::stop()的换行位置以实现统一错误格式？

要让错误消息始终保持换行且无多余空白，可以用以下几种方案：

方案1：动态判断是否添加换行 #

通过计算控制台宽度、调用语句长度，决定是否在错误消息前添加换行，避免多余空白：

abort <- function(msg) {
  # 获取控制台宽度
  console_width <- getOption("width")
  
  # 构造错误前缀（模拟base R的"Error in ... : "部分）
  call_text <- deparse(match.call())
  prefix <- paste0("Error in ", call_text, " : ")
  
  # 计算前缀长度，判断是否需要换行
  if (nchar(prefix) + nchar(msg) > console_width) {
    stop(msg)
  } else {
    stop("\n", msg)
  }
}

这个方法会自动适配控制台宽度：当消息和前缀总长度超过宽度时，用base R默认的换行缩进；当总长度足够短，就手动添加换行，让消息单独占一行。

方案2：自定义条件类与打印方法 #

通过创建自定义的错误条件类，完全控制错误消息的输出格式，彻底摆脱base R的自动换行逻辑：

# 定义自定义错误条件
AbortError <- function(msg, call = sys.call(-1)) {
  structure(
    list(message = msg, call = call),
    class = c("AbortError", "error", "condition")
  )
}

# 自定义打印方法
print.AbortError <- function(x, ...) {
  # 打印前缀部分
  cat(sprintf("Error in %s : \n", deparse(x$call)))
  # 打印缩进后的错误消息
  cat(sprintf("  %s\n", x$message))
  invisible(x)
}

# 自定义abort函数
abort <- function(msg) {
  stop(AbortError(msg))
}

使用这个方法后，无论消息长短，错误消息都会固定换行并缩进两个空格，和cli包的风格一致，不会出现多余空白。

测试示例：

abort("Short message")
# 输出：
# Error in abort("Short message") : 
#   Short message

abort("This is a very very very very very very very very long error message")
# 输出：
# Error in abort("This is a very very very very very very very very long error message") : 
#   This is a very very very very very very very very long error message

内容的提问来源于stack exchange，提问作者jslth