R ++에서 C++ 객체 데이터 멤버에 액세스

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

나는

#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(); 
}