[[Rcpp::export]]
| 123 | |
| 124 | // [[Rcpp::export]] |
| 125 | List Datetime_operators() { |
| 126 | Datetime d1 = Datetime(946774923.123456); |
| 127 | Datetime d2 = d1 + 60*60; |
| 128 | return List::create(Named("diff") = d1 - d2, |
| 129 | Named("bigger") = d2 > d1, |
| 130 | Named("smaller") = d2 < d1, |
| 131 | Named("equal") = d2 == d1, |
| 132 | Named("ge") = d2 >= d1, |
| 133 | Named("le") = d2 <= d1, |
| 134 | Named("ne") = d2 != d1); |
| 135 | } |
| 136 | |
| 137 | // [[Rcpp::export]] |
| 138 | SEXP Datetime_wrap() { |