如何强制R在for循环每次迭代后将结果写入列表？

首先澄清一个常见误区：R的赋值操作是实时生效的，不存在“循环结束后统一写入列表”的逻辑。你遇到的崩溃后列表无数据的问题，核心是两个原因：一是动态扩容列表带来过量内存开销触发崩溃，二是崩溃发生后R会话内存中的变量没有落地到本地，自然看不到中间结果。

• 1. 提前预分配列表空间
     动态给空列表追加元素时，R每次都要重新申请内存、复制整个列表，1600次迭代的内存开销会翻数倍，是崩溃的首要诱因。提前分配和输入列表等长的空间可以彻底解决这个问题：

# 预分配等长列表，提前设置名称避免后续动态修改
list_adj <- vector("list", length = length(data_list))
names(list_adj) <- names(data_list)

• 2. 增加异常捕获+实时备份逻辑
     如果要彻底避免崩溃丢失已计算的结果，每次迭代成功后把列表备份到本地，崩溃后可以直接读取备份恢复进度，不需要重跑全部任务，修改后的完整代码如下：

# 预分配输出列表
list_adj <- vector("list", length = length(data_list))
names(list_adj) <- names(data_list)
# 本地备份文件路径
backup_file <- "adj_result_backup.rds"

# 用seq_along替代1:length，避免空列表时的下标错误
for(ii in seq_along(data_list)) {
  # 跳过已经处理完成的条目，重启后可直接续跑
  if (!is.null(list_adj[[ii]])) next
  
  ij <- names(data_list)[ii]
  M <- data_list[[ii]]
  
  # 异常捕获，单文件处理失败不会中断整个循环
  tryCatch({
    # 这里注意你原代码是把函数本身赋值给了fancy_obj，若要取执行结果请直接调用do_fancy_things(M)
    fancy_obj <- do_fancy_things(M)
    list_adj[[ij]] <- fancy_obj
    # 处理成功后立即写入本地备份
    saveRDS(list_adj, backup_file)
  }, error = function(e) {
    message("文件 ", ij, " 处理失败，错误：", e$message)
  })
  Sys.sleep(2)
}

额外提醒：你原示例代码中的fancy_obj <- function(){do_fancy_things}是将匿名函数本身存入列表，而非函数执行后的处理结果，如果你实际需求是存处理结果，需要去掉function(){}的包裹，直接调用处理函数拿到返回值即可。

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