#ifndef dplyr_CallElementProxy_H
#define dplyr_CallElementProxy_H

namespace dplyr {

    class CallElementProxy {
    public:
        CallElementProxy(SEXP symbol_, SEXP object_) :
            symbol(symbol_), object(object_)
        {}

        inline void set(SEXP value){
            SETCAR(object, value) ;
        }

        SEXP symbol;
        SEXP object;
    } ;

}

#endif
