R:强迫“外部角色”进入角色

Question

我正在调试使用Rhpc包的并行代码。Rhpc将集群数据存储到externlaptr对象中。我想测试它是否已损坏，因此以某种方式将它的值输出到write文件中。

代码如下所示：

library(Rhpc)
Rhpc_initialize()
cl <- Rhpc_getHandle(1)
print(cl)

print工作，但是否有一种方法将其转换为要用write()输出的character对象？as.character、as(cl, "character")、as(cl, "integer")等给出了错误cannot coerce type 'externalptr' to vector of type 'character'。

Answer 1

试试capture.output：

make_nil()
# <pointer: (nil)>

capture.output(make_nil())
# [1] "<pointer: (nil)>"

capture.output(make_nil()) == "<pointer: (nil)>"
# [1] TRUE

从技术上讲，您并不是强迫externalptr本身到character，这只是用来表示它的地址；但是，如果您所使用的只是检查它是否有效，您应该没事。

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::XPtr<int> make_nil() {
    int* p = 0;
    return Rcpp::XPtr<int>(p);
}