在R语言的批量运行中，常需要自动跳过错误，继续向下运行。

1、使用 tryCatch() 捕获错误并返回占位符

# 示例：循环中跳过错误继续执行
results <- numeric(5)  # 预分配结果向量

for(i in 1:5) {
  # 用 tryCatch 包裹可能出错的代码
  results[i] <- tryCatch({
    if(i == 3) stop("故意制造的错误")  # 模拟错误
    log(i-1)  # 正常计算
  }, error = function(e) {
    message("跳过错误: ", e$message)
    return(NA)  # 返回占位值继续循环
  })
}

# 输出结果（第3个元素为NA，其他正常计算）
print(results)
# [1]    -Inf 0.0000000        NA 1.3862944 1.6094379

2、使用 try() 简化错误处理

# 示例：处理可能失败的函数调用
safe_sqrt <- function(x) {
  result <- try(sqrt(x), silent = TRUE)  # silent=TRUE 抑制错误输出
  if(inherits(result, "try-error")) {
    return(NA)  # 检测到错误时返回NA
  }
  return(result)
}

# 测试负数输入
values <- c(4, 9, -1, 16)
sapply(values, safe_sqrt)  # 第三个元素返回NA
# [1] 2.0 3.0   NA 4.0

3、purrr 包中possibly实现错误跳过

# 使用 purrr 包实现更优雅的错误处理
library(purrr)

# 定义安全计算函数
safe_log <- possibly(log, otherwise = NA)  # 出错时返回NA

# 对向量进行安全计算
values <- c(1, 0, -1, 10)
map_dbl(values, safe_log)  # 自动跳过错误值
# [1] 0.0000000      -Inf        NA 2.3025851

4、全局实现自动提过错误

# 保存原始错误处理函数
original_error_handler <- options("error")$error

# 自定义全局错误处理
custom_error_handler <- function() {
  cat("\033[31m[全局错误跳过]\033[0m 错误已记录，继续执行...\n")
  invokeRestart("muffleWarning")  # 静默警告
  invokeRestart("abort")         # 终止当前表达式但继续后续代码
}

# 设置全局错误处理
options(error = custom_error_handler)

# 测试代码（第3次循环会触发错误但继续）
for(i in 1:5) {
  cat("Processing", i, "\n")
  if(i == 3) stop("故意制造的错误")
  Sys.sleep(1)
}

# 恢复原始错误处理
options(error = original_error_handler)

5、设置函数

# 创建安全评估包装器
safe_eval <- function(expr, silent = FALSE, default = NULL) {
  result <- tryCatch({
    eval(expr)
  }, error = function(e) {
    if(!silent) message("跳过错误: ", e$message)
    return(default)  # 返回自定义默认值
  })
  return(result)
}

# 使用示例
for(i in 1:5) {
  safe_eval({
    if(i == 3) stop("故意制造的错误")
    cat("处理成功:", i, "\n")
  }, default = NULL)  # 失败时返回NULL
}

# 无需恢复设置，因为未修改全局状态