| 177 | namespace internal { |
| 178 | |
| 179 | inline SEXP getPosixClasses() { |
| 180 | Shield<SEXP> datetimeclass(Rf_allocVector(STRSXP,2)); |
| 181 | SET_STRING_ELT(datetimeclass, 0, Rf_mkChar("POSIXct")); |
| 182 | SET_STRING_ELT(datetimeclass, 1, Rf_mkChar("POSIXt")); |
| 183 | return datetimeclass; |
| 184 | } |
| 185 | |
| 186 | inline SEXP new_posixt_object( double d) { |
| 187 | Shield<SEXP> x(Rf_ScalarReal(d)); |
no outgoing calls
no test coverage detected