| 208 | } |
| 209 | |
| 210 | void sendRequestWithIdentity(Session* session, Request& request, SEXP identity_) { |
| 211 | Identity* ip; |
| 212 | if(identity_ != R_NilValue) { |
| 213 | ip = reinterpret_cast<Identity*>(checkExternalPointer(identity_,"blpapi::Identity*")); |
| 214 | session->sendRequest(request,*ip); |
| 215 | } else { |
| 216 | session->sendRequest(request); |
| 217 | } |
| 218 | } |
| 219 | |
| 220 | void populateDfRow(SEXP ans, R_len_t row_index, const Element& e, RblpapiT rblpapitype) { |
| 221 | // the vectors are already initialized to NAs |
no test coverage detected