Class generic_name_proxy

inst/include/Rcpp/vector/proxy.h:136–192

	template <int RTYPE, template <class> class StoragePolicy>
	class generic_name_proxy {
	public:
		typedef ::Rcpp::Vector<RTYPE, StoragePolicy> VECTOR ;
		generic_name_proxy( VECTOR& v, const std::string& name_) :
			parent(v), name(name_){}
		generic_name_proxy( const generic_name_proxy& other ) :
			parent(other.parent), name(other.name){}
		~generic_name_proxy(){} ;

		generic_name_proxy& operator=( SEXP rhs ){
			set( rhs ) ;
			return *this ;
		}
		generic_name_proxy& operator=( const generic_name_proxy& other){
			set( other.get() ) ;
			return *this ;
		}

		template <typename T>
		generic_name_proxy& operator=( const T& rhs ){
		    set(Shield<SEXP>(wrap(rhs)));
			return *this ;
		}

		// TODO: other operators +=, -=, ...

		operator SEXP() const {
			 return get() ;
		}

		template <typename T>
		operator T() const {
			#if RCPP_DEBUG_LEVEL > 0
			SEXP res = get() ;
			RCPP_DEBUG_1( "generic_name_proxy::get() = <%p> ", res ) ;
			return ::Rcpp::as<T>( res ) ;
			#else
			return ::Rcpp::as<T>( get() ) ;
			#endif
		}

	private:
		VECTOR& parent ;
		std::string name;
		void set( SEXP rhs ){
			R_xlen_t index = 0 ;
			try{
				index = parent.offset(name) ;
				parent[ index ] = rhs ;  // #nocov
			} catch( const index_out_of_bounds& ex ){
				parent.push_back( rhs, name );
			}
		}
		SEXP get() const {
			return parent[ parent.offset(name) ];
		}
	} ;
}