RcppProgress将被移除，如何替换实现用户中断检查并返回部分结果？

好消息是，你完全可以用Rcpp自带的Rcpp::checkUserInterrupt()来替代Progress::check_abort()，而且不需要任何hack——关键是利用Rcpp的异常处理机制来捕获中断，进而完成资源清理和部分结果返回。

原来的Progress::check_abort()本质上也是封装了R的中断检查逻辑，而Rcpp::checkUserInterrupt()做的是同样的事，但它会通过抛出异常而非直接返回布尔值的方式来处理中断。这反而更适合你的场景：我们可以用try-catch块捕获这个异常，在异常处理流程里完成堆对象的清理，再返回当前已生成的部分输出。

修改后的代码示例 #

#include <Rcpp.h>
// [[Rcpp::export]]
SEXP f() {
  // 假设你堆上分配了自定义类型对象（示例用指针，后续有更安全的优化方案）
  SomeCustomType* some_var = new SomeCustomType();
  // 预先初始化部分输出，循环中可逐步更新内容
  Rcpp::List partial_output = Rcpp::List::create(Rcpp::Named("progress") = 0);

  try {
    for(int i = 0; i < 100000; i++) {
      // 定期检查用户中断：若检测到中断，会抛出InterruptedException异常
      Rcpp::checkUserInterrupt();

      // 执行你的业务逻辑，比如更新部分输出和堆对象状态
      partial_output["progress"] = i;
      // do_stuff();
    }

    // 循环正常结束时的清理与返回
    delete some_var;
    partial_output["status"] = "completed";
    return partial_output;
  } catch(const Rcpp::internal::InterruptedException& e) {
    // 捕获中断异常，优先清理堆上的资源
    delete some_var;
    // 标记中断状态，返回当前进度的部分结果
    partial_output["status"] = "interrupted";
    return partial_output;
  }
}

更安全的内存管理优化 #

为了避免手动管理堆内存的风险（比如忘记delete导致内存泄漏），推荐使用C++智能指针（如std::unique_ptr），它会在对象生命周期结束时自动释放资源，即使发生异常也不例外：

#include <Rcpp.h>
#include <memory> // 引入智能指针头文件
// [[Rcpp::export]]
SEXP f() {
  // 用unique_ptr自动管理堆对象，无需手动调用delete
  std::unique_ptr<SomeCustomType> some_var(new SomeCustomType());
  Rcpp::List partial_output = Rcpp::List::create(Rcpp::Named("progress") = 0);

  try {
    for(int i = 0; i < 100000; i++) {
      Rcpp::checkUserInterrupt();
      partial_output["progress"] = i;
      // do_stuff();
    }
    partial_output["status"] = "completed";
    return partial_output;
  } catch(const Rcpp::internal::InterruptedException& e) {
    partial_output["status"] = "interrupted";
    return partial_output; // unique_ptr会自动释放some_var
  }
}

这种方式完全符合CRAN的要求，不需要依赖任何已废弃的包，而且是Rcpp官方推荐的处理用户中断的标准做法。中断发生时，R会正确触发异常，我们在catch块里可以安全地完成所有必要的清理工作，再返回部分结果给R环境。

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