Function RCPP_API_CLASS

inst/include/Rcpp/Symbol.h:27–74

namespace Rcpp{

    RCPP_API_CLASS(Symbol_Impl) {
    public:

        RCPP_GENERATE_CTOR_ASSIGN(Symbol_Impl)

        /**
         * wraps the SEXP into a Symbol object.
         *
         * @param x Accepted SEXP types are SYMSXP, CHARSXP and STRSXP
         * in the last case, the first element of the character vector
         * is silently used
         */
        Symbol_Impl(SEXP x){
            int type = TYPEOF(x) ;
            switch( type ){
            case SYMSXP:
                Storage::set__( x ) ;
                break; /* nothing to do */
            case CHARSXP: {
                SEXP charSym = Rf_installChar(x);       // R 3.2.0 or later have Rf_installChar
                Storage::set__( charSym ) ;
                break ;
            }
            case STRSXP: {
                /* FIXME: check that there is at least one element */
                SEXP charSym = Rf_installChar(STRING_ELT(x, 0 ));     // R 3.2.0 or later have Rf_installChar
                Storage::set__( charSym );
                break ;
            }
            default:
                const char* fmt = "Cannot convert object to a symbol: "
                                  "[type=%s; target=SYMSXP].";
                throw not_compatible(fmt, Rf_type2char(TYPEOF(x)));
            }
        }

        Symbol_Impl(const std::string& symbol){
            Storage::set__( Rf_install(symbol.c_str()) );
        }
        inline const char* c_str() const {
            return CHAR(PRINTNAME(Storage::get__())) ;
        }
        inline bool operator==(const char* other) const {
            return ! strcmp(other, c_str() );
        }

        void update(SEXP){}
    };

    typedef Symbol_Impl<NoProtectStorage> Symbol;