Method newInstance

inst/include/Rcpp/module/class.h:130–156

        }

        SEXP newInstance( SEXP* args, int nargs ){
            BEGIN_RCPP
                signed_constructor_class* p ;
            size_t n = constructors.size() ;
            for( size_t i=0; i<n; i++ ){
                p = constructors[i];
                bool ok = (p->valid)(args, nargs) ;
                if( ok ){
                    Class* ptr = p->ctor->get_new( args, nargs ) ;
                    return XP( ptr, true ) ;
                }
            }

            signed_factory_class* pfact ;
            n = factories.size() ;
            for( size_t i=0; i<n; i++){
              pfact = factories[i] ;
              bool ok = (pfact->valid)(args, nargs) ;
              if( ok ){
                Class* ptr = pfact->fact->get_new( args, nargs ) ;
                return XP( ptr, true ) ;
              }
            }

            throw std::range_error( "no valid constructor available for the argument list" ) ;
            END_RCPP
                }

        bool has_default_constructor(){
            size_t n = constructors.size() ;