| 136 | } |
| 137 | |
| 138 | void addPosixClass(SEXP x) { |
| 139 | // create and add dates class to dates object |
| 140 | // cf Rcpp's inst/include/Rcpp/date_datetime/newDatetimeVector.h |
| 141 | Rcpp::Shield<SEXP> datetimeclass(Rf_allocVector(STRSXP,2)); |
| 142 | SET_STRING_ELT(datetimeclass, 0, Rf_mkChar("POSIXct")); |
| 143 | SET_STRING_ELT(datetimeclass, 1, Rf_mkChar("POSIXt")); |
| 144 | Rf_setAttrib(x, R_ClassSymbol, datetimeclass); |
| 145 | } |
| 146 | |
| 147 | void appendOptionsToRequest(Request& request, SEXP options_) { |
| 148 | if(options_== R_NilValue) { return; } |
no outgoing calls
no test coverage detected