如何在R中处理迭代过程中的错误问题？

tryCatch({
  # 迭代过程的代码
}, error = function(e) {
  # 错误处理代码
})

for (i in 1:n) {
  result <- try({
    # 迭代过程的代码
  }, silent = TRUE)
  
  if (!inherits(result, "try-error")) {
    # 处理迭代结果
  }
}

library(log4r)

logger <- log4r::logger("my_logger")
log4r::appender(logger, log4r::ConsoleAppender$new())
log4r::level(logger) <- "DEBUG"

for (i in 1:n) {
  tryCatch({
    # 迭代过程的代码
  }, error = function(e) {
    log4r::error(logger, paste("Error in iteration", i, ":", conditionMessage(e)))
  })
}