Method remove

inst/include/Rcpp/api/meat/DottedPairImpl.h:101–120

	template <typename CLASS>
    void DottedPairImpl<CLASS>::remove( const size_t& index ) {
        CLASS& ref = static_cast<CLASS&>(*this) ;
        if( static_cast<R_xlen_t>(index) >= Rf_xlength(ref.get__()) ) {
            const char* fmt = "Dotted Pair index is out of bounds: "
                              "[index=%i; extent=%i].";

            throw index_out_of_bounds(fmt,
                                      static_cast<R_xlen_t>(index),
                                      ::Rf_xlength(ref.get__()) ) ;
        }

        if( index == 0 ){
            ref.set__( CDR( ref.get__() ) ) ;
        } else{
            SEXP x = ref.get__() ;
            size_t i=1;
            while( i<index ){ x = CDR(x) ; i++; }
            SETCDR( x, CDDR(x) ) ;
        }
    }