Function authenticate_Impl

src/authenticate.cpp:186–196

Simpler interface [[Rcpp::export]]

//
// [[Rcpp::export]]
SEXP authenticate_Impl(SEXP con_, SEXP uuid_, SEXP ip_address_, SEXP is_auth_id_,
                       SEXP app_name_) {
    Identity* identity_p = NULL;
    if (uuid_ == R_NilValue) {
        identity_p = authenticateWithApp(con_);
    } else {
        identity_p = authenticateWithId(con_, uuid_, ip_address_, is_auth_id_, app_name_);
    }
    if(identity_p == NULL) { Rcpp::stop("Identity pointer is null\n"); }
    return createExternalPointer<Identity>(identity_p, identityFinalizer, "blpapi::Identity*");
}