Function RCPP_API_CLASS

inst/include/Rcpp/WeakReference.h:27–62

namespace Rcpp{

    RCPP_API_CLASS(WeakReference_Impl) {
    public:
        RCPP_GENERATE_CTOR_ASSIGN(WeakReference_Impl)

        WeakReference_Impl(){}

        /**
         * wraps a weak reference
         *
         * @param x presumably a SEXP of SEXTYPE WEAKREFSXP
         *
         * @throw not_compatible if x is not a weak reference
         */
        WeakReference_Impl( SEXP x){
             if( TYPEOF(x) != WEAKREFSXP )
                throw not_compatible( "not a weak reference" ) ;
            Storage::set__(x);
        }

        /**
         * Retrieve the key
         */
        SEXP key() const {
            return R_WeakRefKey(Storage::get__()) ;
        }

        /**
         * Retrieve the value
         */
        SEXP value() const {
            return R_WeakRefValue(Storage::get__());
        }

        void update(SEXP){}

    } ;

    typedef WeakReference_Impl<PreserveStorage> WeakReference ;
}