C++オブジェクトデータメンバーへのアクセスR

Question

私はC++またはRcppエキスパートではないが、RからC++データメンバーにアクセスすることは可能ですか？以下の私の試みは失敗します。

TEST.CPP

#include <Rcpp.h> 
using namespace Rcpp; 

class myclass { 
private: 
    int k; 
public: 
    myclass(int &n) : k(n){} 
    int getk() const {return k;} 
}; 

typedef myclass* pmyclass; 

// [[Rcpp::export]] 
XPtr<pmyclass> new_myclass(NumericVector n_) { 
    int n = as<int>(n_); 
    myclass x(n); 
    return(XPtr<pmyclass>(new pmyclass(&x))); 
} 

// [[Rcpp::export]] 
NumericVector getk(SEXP xpsexp){ 
    XPtr<pmyclass> xp(xpsexp); 
    pmyclass x = *xp; 
    return wrap(x -> getk()); 
} 

をtest.R

library(Rcpp) 

sourceCpp('./cpp_attempt/live_in_cpp/minimal_fail/test.cpp') 

ptr <- new_myclass(10) 

getk(ptr) 
#19274768 

Answer 1

を私はRcppモジュール、または外部経由のいずれかを使用して、

#include <Rcpp.h> 
using namespace Rcpp; 

class myclass { 
private: 
    int k; 
public: 
    myclass(int n) : k(n){} 
    int getk() const {return k;} 
}; 

// [[Rcpp::export]] 
SEXP new_myclass(int n) { 
    XPtr<myclass> ptr(new myclass(n), true); 
    return ptr; 
} 

// [[Rcpp::export]] 
int getk(SEXP xpsexp){ 
    XPtr<myclass> xp(xpsexp); 
    return xp->getk(); 
}