从 Rcpp 调用 stats::optim 如何导致内存泄漏？

Question

在我的部分代码中，我需要优化 Rcpp 中的一个函数（我按照这里的第二个答案 Applying the optim function in R in C++ with Rcpp）。但是，我发现该函数会泄漏内存（很少，但如果它是重复运行模拟的一部分，它就会变得复杂）。我创建了一个最小的可重现示例，但我不知道泄漏 originate/how 在哪里处理它。我可以寻求有关处理此问题的指导吗？

Rcpp 代码：

#include <Rcpp.h>
using namespace Rcpp;
double objective_function(double x){
  double obj = .666 - x;
  return pow(obj, 2);
}
// [[Rcpp::export(leak)]]
double leak(double a, double b){
 

  // Extract R's optim function
  Rcpp::Environment stats("package:stats");
  Rcpp::Function optim = stats["optim"];
 
  // Call the optim function from R in C++
  Rcpp::List opt_results = optim(Rcpp::_["par"]    = .5,
                                 Rcpp::_["fn"]     = Rcpp::InternalFunction(&objective_function),
                                 Rcpp::_["method"] = "Brent",
                                 Rcpp::_["lower"]  = a,
                                 Rcpp::_["upper"]  = b);
 
  // Extract out the estimated parameter values
  double mu = opt_results[0];
 
  // Return estimated values
  return mu;
}

R代码：

repeat{
  leak(0, 1)
}

当我查看我的任务管理器时，Rstudio R Session 下的 RAM 使用量正在稳步增加（如果我使用任何其他仅 returns 值的函数，则不会发生这种情况）。

Answer 1

使用 macOS + Instruments 检漏仪，似乎 Rcpp::InternalFunction 正在泄漏：

这将我们指向此处的代码：

https://github.com/RcppCore/Rcpp/blob/97222bb753c4cd76a4cef7d33c2bfc2e305d1158/inst/include/Rcpp/generated/InternalFunction__ctors.h#L35-L38

请注意，我们正在使用 new 分配对象，但我们也告诉 XPtr not 注册删除终结器：

https://github.com/RcppCore/Rcpp/blob/97222bb753c4cd76a4cef7d33c2bfc2e305d1158/inst/include/Rcpp/XPtr.h#L88-L106

我不是很清楚为什么我们这样做，但我认为它解释了行为。可能值 filing an issue.

从 Rcpp 调用 stats::optim 如何导致内存泄漏？

How calling stats::optim from Rcpp causes memory leak?

rcpp