Function primitive_wrap__impl__cast

inst/include/Rcpp/internal/wrap.h:445–450

         */
    	template <typename T>
        inline SEXP primitive_wrap__impl__cast(const T& object, ::Rcpp::traits::false_type) {
            const int RTYPE = ::Rcpp::traits::r_sexptype_traits<T>::rtype;
            Shield<SEXP> x(Rf_allocVector(RTYPE, 1));
            r_vector_start<RTYPE>(x)[0] = object;
            return x;
        }

    	/**
         * wraps a single primitive value when a cast is needed