コード例 #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]]
void connection_release(XPtr<MyConnectionPtr> con) {
  if ((*con)->hasQuery()) {
    warning("%s\n%s",
      "There is a result object still in use.",
      "The connection will be automatically released when it is closed"
    );
  }
  return con.release();
}
コード例 #3
0
ファイル: result.cpp プロジェクト: bpgriner01/RPostgres
// [[Rcpp::export]]
void result_release(XPtr<PqResult> rs) {
  rs.release();
}
コード例 #4
0
ファイル: XPtr.cpp プロジェクト: LanceAtKS/LC
// [[Rcpp::export]]
bool xptr_release( XPtr< std::vector<int> > p) {
    p.release();
    return !p;
}