R循环遇错返回NA/0并继续执行的实现方法求助

要实现循环中遇错返回NA/0且不中断执行，核心是捕获错误并处理，以下是两种可行方案：

方案1：使用tryCatch显式捕获错误 #

在循环内的函数调用外层包裹tryCatch，指定错误发生时返回NA（或0），示例如下：

修改你的简化示例代码： #

df <- data.frame(x = c(1,2,3), y = rep('hi',3))

addition <- function(a,b){
  result <- a+b
  return(result)
}

df$z <- 1
for (i in 1:length(df$x)){
  df$z[i] <- tryCatch(
    # 正常执行的函数调用
    addition(df$x[i], df[i,i]),
    # 错误处理逻辑：返回NA，可替换为0
    error = function(e) NA_real_
  )
}

运行后得到的结果与你期望一致：

适配NLS计算EC50的实际场景： #

将NLS调用逻辑放入tryCatch即可：

# 定义EC50计算函数（示例）
calculate_ec50 <- function(row_data) {
  # 这里替换为你的NLS拟合逻辑
  fit <- nls(y ~ SSlogis(x, Asym, xmid, scal), data = row_data)
  # 返回EC50值（假设xmid对应EC50）
  coef(fit)[["xmid"]]
}

# 初始化列并循环处理
df$ec50 <- NA_real_
for (i in 1:nrow(df)) {
  df$ec50[i] <- tryCatch(
    calculate_ec50(df[i, ]),
    error = function(e) NA_real_  # 遇错返回NA，可改为0
  )
}

方案2：使用purrr包的安全函数（更简洁） #

purrr::possibly可以将原函数包装为"安全函数"，报错时自动返回指定值，配合map_dbl实现向量化处理，无需显式循环：

library(purrr)

# 包装addition函数，遇错返回NA
safe_addition <- possibly(addition, otherwise = NA_real_)

# 逐行应用安全函数
df$z <- map_dbl(1:nrow(df), ~safe_addition(df$x[.x], df[.x, .x]))

# 适配NLS场景：
safe_calculate_ec50 <- possibly(calculate_ec50, otherwise = NA_real_)
df$ec50 <- map_dbl(1:nrow(df), ~safe_calculate_ec50(df[.x, ]))

两种方案都能保证Shiny应用在遇到错误时不会崩溃，错误行仅返回NA/0，其余行正常处理。

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