Use R_ClosureEnv instead of CLOENV with R (>= 4.5.0)

Author: eddelbuettel

inst/include/Rcpp/Function.h

@@ -99,7 +99,11 @@ namespace Rcpp{
             if( TYPEOF(fun) != CLOSXP ) {
                 throw not_a_closure(Rf_type2char(TYPEOF(fun)));
             }
-            return CLOENV(fun) ;
+            #if (defined(R_VERSION) && R_VERSION >= R_Version(4,5,0))
+            return R_ClosureEnv(fun);
+            #else
+            return CLOENV(fun);
+            #endif
         }
 
         /**

inst/include/Rcpp/Symbol.h

@@ -43,7 +43,7 @@ namespace Rcpp{
                 Storage::set__( x ) ;
                 break; /* nothing to do */
             case CHARSXP: {
-		#if R_VERSION >= R_Version(3,2,0)
+                #if R_VERSION >= R_Version(3,2,0)
                 SEXP charSym = Rf_installChar(x);       // R 3.2.0 or later have Rf_installChar
                 #else
                 SEXP charSym = Rf_install(CHAR(x));     // cannot be gc()'ed  once in symbol table
@@ -53,7 +53,7 @@ namespace Rcpp{
             }
             case STRSXP: {
                 /* FIXME: check that there is at least one element */
-		#if R_VERSION >= R_Version(3,2,0)
+                #if R_VERSION >= R_Version(3,2,0)
                 SEXP charSym = Rf_installChar(STRING_ELT(x, 0 ));     // R 3.2.0 or later have Rf_installChar
                 #else
                 SEXP charSym = Rf_install( CHAR(STRING_ELT(x, 0 )) ); // cannot be gc()'ed  once in symbol table