| 249 | namespace internal { |
| 250 | |
| 251 | inline SEXP nth(SEXP s, int n) { // #nocov start |
| 252 | return Rf_length(s) > n ? (n == 0 ? CAR(s) : CAR(Rf_nthcdr(s, n))) : R_NilValue; |
| 253 | } |
| 254 | |
| 255 | // We want the call just prior to the call from Rcpp_eval |
| 256 | // This conditional matches |