Function Symbol_Impl

inst/include/Rcpp/Symbol.h:39–61

         * 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()) );