| 601 | public: |
| 602 | typedef Rcpp::XPtr<Rcpp::Module> XP ; |
| 603 | CppObject( Module* p, class_Base* clazz, SEXP xp ) : S4("C++Object") { |
| 604 | slot( "module" ) = XP( p, false ) ; |
| 605 | slot( "cppclass" ) = Rcpp::XPtr<class_Base>( clazz, false ) ; |
| 606 | slot( "pointer" ) = xp ; |
| 607 | } |
| 608 | RCPP_CTOR_ASSIGN_WITH_BASE(CppObject) |
| 609 | } ; |
| 610 |
nothing calls this directly
no outgoing calls
no test coverage detected