Method invoke

inst/include/Rcpp/module/class.h:174–199

        }

        SEXP invoke( SEXP method_xp, SEXP object, SEXP *args, int nargs ){
            BEGIN_RCPP

                vec_signed_method* mets = reinterpret_cast< vec_signed_method* >( R_ExternalPtrAddr( method_xp ) ) ;
            typename vec_signed_method::iterator it = mets->begin() ;
            size_t n = mets->size() ;
            method_class* m = 0 ;
            bool ok = false ;
            for( size_t i=0; i<n; i++, ++it ){
                if( ( (*it)->valid )( args, nargs) ){
                    m = (*it)->method ;
                    ok = true ;
                    break ;
                }
            }
            if( !ok ){
                throw std::range_error( "could not find valid method" ) ;
            }
            if( m->is_void() ){
                m->operator()( XP(object), args );
                return Rcpp::List::create( true ) ;
            } else {
                return Rcpp::List::create( false, m->operator()( XP(object), args ) ) ;
            }
            END_RCPP
                }

        SEXP invoke_void( SEXP method_xp, SEXP object, SEXP *args, int nargs ){
            BEGIN_RCPP