如何将assertthat/assertive断言的错误/警告信息重定向至日志文件？

要把assertthat和assertive的断言信息捕获并写入日志，核心是利用tryCatch捕获断言抛出的条件（错误/警告），再提取信息格式化后写入日志。以下是具体实现：

示例代码 #

library(assertthat)
library(assertive)

# 带日志的数据处理函数
process_data_with_log <- function(input_data, log_path = "process_log.txt") {
  log_content <- character(0)
  
  result <- tryCatch({
    # assertthat断言检查
    assert_that(is.data.frame(input_data), msg = "输入必须是数据框格式")
    # assertive断言检查（设置severity为error直接抛出错误）
    assert_is_numeric(input_data$value, severity = "error")
    
    # 核心数据处理逻辑
    input_data$processed <- input_data$value * 2
    log_content <- c(log_content, "函数执行成功")
    input_data
  }, error = function(e) {
    # 提取断言的错误信息，格式化日志内容
    error_detail <- conditionMessage(e)
    log_content <- c(log_content, sprintf("函数执行失败，原因：%s", error_detail))
    NULL  # 执行失败时返回NULL，可根据需求调整返回值
  })
  
  # 追加写入日志文件
  writeLines(log_content, con = log_path, append = TRUE)
  result
}

# 测试用例
# 1. 正常输入
normal_df <- data.frame(value = c(1, 2, 3))
process_data_with_log(normal_df)

# 2. 非数据框输入（触发assertthat断言）
bad_input1 <- c(10, 20, 30)
process_data_with_log(bad_input1)

# 3. 非数值列输入（触发assertive断言）
bad_input2 <- data.frame(value = c("a", "b", "c"))
process_data_with_log(bad_input2)

关键说明 #

• 捕获断言信息：assertthat和assertive的断言本质是抛出error或warning类型的条件，tryCatch的error分支可以直接捕获，通过conditionMessage(e)提取具体的断言提示文本。
• 断言强度调整：assertive部分函数默认抛出警告，可通过severity = "error"参数转为错误，方便统一用error分支处理；如果需要保留警告并写入日志，可在tryCatch中添加warning分支单独处理。
• 日志写入：使用append = TRUE确保每次运行的日志追加到文件末尾，不会覆盖历史记录。

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