| 407 | } |
| 408 | |
| 409 | Rcpp::CharacterVector complete(){ |
| 410 | size_t n = vec_methods.size() - specials ; |
| 411 | size_t ntotal = n + properties.size() ; |
| 412 | Rcpp::CharacterVector out(ntotal) ; |
| 413 | typename map_vec_signed_method::iterator it = vec_methods.begin( ) ; |
| 414 | std::string buffer ; |
| 415 | size_t i=0 ; |
| 416 | for( ; i<n; ++it){ |
| 417 | buffer = it->first ; |
| 418 | if( buffer[0] == '[' ) continue ; |
| 419 | // if( (it->second)->nargs() == 0){ |
| 420 | // buffer += "() " ; |
| 421 | // } else { |
| 422 | // buffer += "( " ; |
| 423 | // } |
| 424 | buffer += "( " ; |
| 425 | out[i] = buffer ; |
| 426 | i++ ; |
| 427 | } |
| 428 | typename PROPERTY_MAP::iterator prop_it = properties.begin(); |
| 429 | for( ; i<ntotal; i++, ++prop_it){ |
| 430 | out[i] = prop_it->first ; |
| 431 | } |
| 432 | return out ; |
| 433 | } |
| 434 | |
| 435 | SEXP getProperty( SEXP field_xp , SEXP object) { |
| 436 | BEGIN_RCPP |
no test coverage detected