R语言如何修改while循环实现运行中断时保存中间结果

你原有代码存在逻辑缺陷，会导致循环永远无法终止：runif()生成的是连续型均匀分布随机数，三个连续随机数之和恰好等于10的概率为0，无论跑多久都得不到符合条件的结果。实际使用时必须给判定条件添加合理容差，例如判断三数之和与10的绝对差小于1e-6，才能正常得到结果。

R中点击控制台红色停止按钮触发的手动中断，本质是抛出一个interrupt类的特殊条件，用R基础包自带的条件处理函数捕获该信号，就能在中断触发时立刻保存已生成的结果，不需要依赖第三方包，核心规则如下：

• 提前在全局环境初始化结果存储对象，不要等循环全部跑完再给结果对象赋值
• 每计算得到一个合法的中间结果，立刻写入提前初始化的存储对象，不要把结果存在循环内部的临时变量中等待批量写入
• 用withCallingHandlers()包裹整个循环块，单独编写interrupt类型条件的处理逻辑
• 中断触发时，用assign()将当前存储的中间结果强制写入全局环境，避免变量随函数调用结束被回收
• 如果循环耗时极长，可以额外添加定期持久化逻辑，每完成固定数量的计算就把结果存到本地硬盘，避免R意外崩溃导致结果丢失

针对你生成三元随机数的需求，修改后的支持中断保留结果的代码如下：

# 提前初始化结果存储列表
list_results <- list()

withCallingHandlers({
  for (i in 1:100){
    num_1_i = num_2_i = num_3_i = 0
    # 添加容差判断，替换原来的精确相等判断
    while(abs(num_1_i + num_2_i + num_3_i - 10) > 1e-6){
      num_1_i = runif(1,0,5)
      num_2_i = runif(1,0,5)
      num_3_i = runif(1,0,5)
    }
    inter_results_i <- data.frame(i, num_1_i, num_2_i, num_3_i)
    # 每算出一组合法结果立刻存入结果列表
    list_results[[i]] <- inter_results_i
    # 可选：打印运行进度
    if(i %% 10 == 0) message("已完成", i, "组结果计算")
  }
},
# 定义中断触发时的处理逻辑
interrupt = function(e) {
  assign("list_results", list_results, envir = .GlobalEnv)
  message("\n检测到手动中断，已保存当前已完成的", length(list_results), "组结果到全局变量list_results")
})

以下是任意耗时while/for循环都可以套用的模板，示例逻辑为计算1到1000万的平方根，中断时自动保留已计算的结果：

# 1. 提前初始化结果存储对象
calc_results <- numeric(0)

# 2. 用条件处理器包裹循环
withCallingHandlers({
  # 这里替换成你自己的循环逻辑，for、while循环均可
  current_idx <- 1
  while(current_idx <= 10000000){
    calc_results[current_idx] <- sqrt(current_idx)
    current_idx <- current_idx + 1
  }
},
# 3. 中断处理逻辑
interrupt = function(e){
  assign("calc_results", calc_results, envir = .GlobalEnv)
  message("\n已触发中断，共保存", length(calc_results), "条已计算结果")
})

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