采用外部指针的并行化函数（XPtr）

这个问题既不是重复的，也不是重复的 ，这是关于函数返回外部指针的

问题就在这里。Rcpp代码在下文中定义了两个函数，一个用于创建XPtr，另一个用于XPtr

#include <Rcpp.h>
using namespace Rcpp;

//[[Rcpp::export]]
SEXP f(int n) {
  std::vector<int> * v = new std::vector<int>;

  for(int i = 0; i < n; i++)
    v->push_back(i);

  XPtr< std::vector<int> > p(v, true);
  return p;
}

//[[Rcpp::export]]
int g(XPtr< std::vector<int> > p, int i) {
  return (*p)[i];

预期行为：

> unlist( test1(x) )
[1] 1 2 3 4 5

> test2(x)
Error in checkForRemoteErrors(val) : 
  2 nodes produced errors; first error: external pointer is not valid

但这不起作用：

test2 <- function(a) {
  cl <- makeForkCluster(nnodes=2)

  p <- g(a, 0)
  r <- parLapply(cl, 1:5, function(i) g(a,i) )
  stopCluster(cl)
  return(r)
}

---

这个问题似乎源于这样一个事实：在调用集群中的从属函数之前，函数中只使用了一次外部指针。是什么解释了这种行为，有解决办法吗？非常感谢。

在函数的开头，

a

是一个承诺，即表示在特定环境中对特定表达式求值。当您访问变量时，将对表达式求值，因此现在

a

是一个指针，该指针特定于特定的R实例。您可以使用

pryr:：promise\u info

：

test2 <- function(a) {
  cl <- makeForkCluster(nnodes = 2)
  print(pryr::promise_info(a))
  p <- g(a, 0)
  print(pryr::promise_info(a))
  stopCluster(cl)
  return(r)
}

---

我相信有更好的办法。非标准评估对我来说还是有点陌生…

回答得很好，谢谢！！我不知道

pryr:：promise\u info

，这在其他情况下肯定会很有用（我在嵌套函数调用中遇到了其他性质相同的问题…）。在问这个问题之前，我确实尝试了一些方法，比如

get（deparse（substitute（a））

，但我没有想到

eval

…请看一下这个新问题：

> test2(x)
Error in checkForRemoteErrors(val) : 
  2 nodes produced errors; first error: external pointer is not valid

test2 <- function(a) {
  cl <- makeForkCluster(nnodes = 2)
  print(pryr::promise_info(a))
  p <- g(a, 0)
  print(pryr::promise_info(a))
  stopCluster(cl)
  return(r)
}

$code
x

$env
<environment: R_GlobalEnv>

$evaled
[1] FALSE

$value
NULL

$code
x

$env
NULL

$evaled
[1] TRUE

$value
<pointer: 0x565295e3a410>

test2 <- function(a) {
  cl <- makeForkCluster(nnodes = 2)
  print(pryr::promise_info(a))
  p <- g(eval(substitute(a)), 0)
  print(pryr::promise_info(a))
  r <- parLapply(cl, 1:5, function(i) g(a,i) )
  stopCluster(cl)
  return(r)
}