| 493 | public: |
| 494 | typedef XPtr<class_Base> XP_Class ; |
| 495 | S4_field( CppProperty<Class>* p, const XP_Class& class_xp ) : Reference( "C++Field" ){ |
| 496 | RCPP_DEBUG( "S4_field( CppProperty<Class>* p, const XP_Class& class_xp )" ) |
| 497 | field( "read_only" ) = p->is_readonly() ; |
| 498 | field( "cpp_class" ) = p->get_class(); |
| 499 | field( "pointer" ) = Rcpp::XPtr< CppProperty<Class> >( p, false ) ; |
| 500 | field( "class_pointer" ) = class_xp ; |
| 501 | field( "docstring" ) = p->docstring ; |
| 502 | } |
| 503 | |
| 504 | RCPP_CTOR_ASSIGN_WITH_BASE(S4_field) |
| 505 |
nothing calls this directly
no test coverage detected