| 144 | return static_cast<double>(from.getDate()); |
| 145 | } |
| 146 | template<> inline Rcpp::Date caster<double,Rcpp::Date>(double from) { |
| 147 | return Rcpp::Date(static_cast<int>(from)); |
| 148 | } |
| 149 | } |
| 150 | |
| 151 | template<> inline SEXP wrap_extra_steps<Rcpp::Date>(SEXP x) { |