| 448 | |
| 449 | |
| 450 | Rcpp::List fields( const XP_Class& class_xp ){ |
| 451 | size_t n = properties.size() ; |
| 452 | Rcpp::CharacterVector pnames(n) ; |
| 453 | Rcpp::List out(n) ; |
| 454 | typename PROPERTY_MAP::iterator it = properties.begin( ) ; |
| 455 | for( size_t i=0; i<n; i++, ++it){ |
| 456 | pnames[i] = it->first ; |
| 457 | out[i] = S4_field<Class>( it->second, class_xp ) ; |
| 458 | } |
| 459 | out.names() = pnames ; |
| 460 | return out ; |
| 461 | } |
| 462 | |
| 463 | Rcpp::List getMethods( const XP_Class& class_xp, std::string& buffer){ |
| 464 | RCPP_DEBUG_MODULE( "Rcpp::List getMethods( const XP_Class& class_xp, std::string& buffer" ) |