allow name removal

Enchufa2 · Enchufa2 · commit f9aa56819bf1 · 2026-04-06T10:35:56.000+02:00
diff --git a/inst/include/Rcpp/proxy/NamesProxy.h b/inst/include/Rcpp/proxy/NamesProxy.h
@@ -49,7 +49,8 @@ class NamesProxyPolicy{
 
         void set(SEXP x) {
             if (!Rf_isNull(x))
-               Rf_namesgets(parent, Shield<SEXP>(x));
+               Rf_namesgets(parent, x);
+            else Rf_setAttrib(parent, R_NamesSymbol, x);
         }
 
     } ;

Original file line number	Diff line number	Diff line change
`@@ -49,7 +49,8 @@ class NamesProxyPolicy{`
`49`	`49`
`50`	`50`	`void set(SEXP x) {`
`51`	`51`	`if (!Rf_isNull(x))`
`52`		`- Rf_namesgets(parent, Shield<SEXP>(x));`
	`52`	`+ Rf_namesgets(parent, x);`
	`53`	`+ else Rf_setAttrib(parent, R_NamesSymbol, x);`
`53`	`54`	`}`
`54`	`55`
`55`	`56`	`} ;`