| 433 | } |
| 434 | |
| 435 | SEXP getProperty( SEXP field_xp , SEXP object) { |
| 436 | BEGIN_RCPP |
| 437 | prop_class* prop = reinterpret_cast< prop_class* >( R_ExternalPtrAddr( field_xp ) ) ; |
| 438 | return prop->get( XP(object) ); |
| 439 | END_RCPP |
| 440 | } |
| 441 | |
| 442 | void setProperty( SEXP field_xp, SEXP object, SEXP value) { |
| 443 | BEGIN_RCPP |