| 46 | return Rcpp_fast_eval( call, R_GlobalEnv ) ; |
| 47 | } |
| 48 | void set(SEXP x ) { |
| 49 | SEXP dollarGetsSym = Rf_install( "$<-"); |
| 50 | Shield<SEXP> str(Rf_mkString(field_name.c_str())); |
| 51 | Shield<SEXP> call(Rf_lang4(dollarGetsSym, parent, str, x)); |
| 52 | parent.set__( Rcpp_fast_eval( call, R_GlobalEnv ) ); |
| 53 | } |
| 54 | } ; |
| 55 | |
| 56 | class const_FieldProxy : public GenericProxy<const_FieldProxy> { |
nothing calls this directly
no test coverage detected