template<> SEXP wrap<RcppDatetime>(const RcppDatetime& date) { Rcpp::NumericVector value(1); Rcpp::CharacterVector classname(2); value[0] = date.getFractionalTimestamp(); Rcpp::RObject robj((SEXP)value); classname[0] = Rcpp::datetimeClass[0]; classname[1] = Rcpp::datetimeClass[1]; robj.attr("class") = classname; return value; }
template <> SEXP wrap(const RcppDatetime &datetime) { return internal::new_posixt_object( datetime.getFractionalTimestamp() ) ; }