From ccfdc2e25d9265988925acf1ef8e0d55e446cdaf Mon Sep 17 00:00:00 2001 From: Kevin Ushey Date: Fri, 5 Jul 2024 14:40:11 +0800 Subject: [PATCH] drop support for user-defined databases --- ChangeLog | 4 ++++ inst/include/Rcpp/Environment.h | 15 +-------------- 2 files changed, 5 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2b1261d9c..9e22432a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2024-07-05 Kevin Ushey + + * inst/include/Rcpp/Environment.h: Drop support for UserDefinedDatabase. + 2024-06-22 Dirk Eddelbuettel * DESCRIPTION (Version, Date): Roll micro version diff --git a/inst/include/Rcpp/Environment.h b/inst/include/Rcpp/Environment.h index fdd33c330..76779f2fb 100644 --- a/inst/include/Rcpp/Environment.h +++ b/inst/include/Rcpp/Environment.h @@ -84,12 +84,7 @@ namespace Rcpp{ */ SEXP ls(bool all) const { SEXP env = Storage::get__() ; - if( is_user_database() ){ - R_ObjectTable *tb = (R_ObjectTable*) R_ExternalPtrAddr(HASHTAB(env)); - return tb->objects(tb) ; - } else { - return R_lsInternal( env, all ? TRUE : FALSE ) ; - } + return R_lsInternal( env, all ? TRUE : FALSE ) ; return R_NilValue ; } @@ -318,14 +313,6 @@ namespace Rcpp{ return R_BindingIsActive(nameSym, Storage::get__()) ; } - /** - * Indicates if this is a user defined database. - */ - bool is_user_database() const { - SEXP env = Storage::get__() ; - return OBJECT(env) && Rf_inherits(env, "UserDefinedDatabase") ; - } - /** * @return the global environment. See ?globalenv */