| 184 | } |
| 185 | |
| 186 | inline SEXP new_posixt_object( double d) { |
| 187 | Shield<SEXP> x(Rf_ScalarReal(d)); |
| 188 | Rf_setAttrib(x, R_ClassSymbol, getPosixClasses()); |
| 189 | return x; |
| 190 | } |
| 191 | |
| 192 | inline SEXP new_date_object(double d) { |
| 193 | Shield<SEXP> x(Rf_ScalarReal(d)); |
no test coverage detected