コード例 #1
0
ファイル: XPtr.cpp プロジェクト: LanceAtKS/LC
// [[Rcpp::export]]
bool xptr_access_released( XPtr< std::vector<int> > p) {

    // double-release should be a no-op
    p.release();

    // get should return NULL
    return p.get() == NULL;
}
コード例 #2
0
ファイル: connection.cpp プロジェクト: Hydrophile/RMySQL-1
// [[Rcpp::export]]
bool connection_valid(XPtr<MyConnectionPtr> con) {
  return con.get() != NULL;
}
コード例 #3
0
ファイル: result.cpp プロジェクト: bpgriner01/RPostgres
// [[Rcpp::export]]
bool result_active(XPtr<PqResult> rs) {
  return rs.get() != NULL && rs->active();
}