| 54 | prop_class(doc), ptr(ptr_), class_name(DEMANGLE(PROP)) {} |
| 55 | |
| 56 | SEXP get(Class* object) { return Rcpp::wrap( object->*ptr ) ; } |
| 57 | void set(Class* object, SEXP value) { throw std::range_error("read only data member") ; } |
| 58 | bool is_readonly(){ return true ; } |
| 59 | std::string get_class(){ return class_name; } |