#ifndef dplyr_vector_class_H
#define dplyr_vector_class_H

namespace dplyr {

    template <int RTYPE>
    inline std::string vector_class() ;

    template <>
    inline std::string vector_class<INTSXP>(){
        return "integer" ;
    }
    template <>
    inline std::string vector_class<REALSXP>(){
        return "numeric" ;
    }
    template <>
    inline std::string vector_class<STRSXP>(){
        return "character" ;
    }
    template <>
    inline std::string vector_class<LGLSXP>(){
        return "logical" ;
    }
    template <>
    inline std::string vector_class<VECSXP>(){
        return "list" ;
    }
    template <>
    inline std::string vector_class<CPLXSXP>(){
        return "complex" ;
    }


}

#endif
