Shield<> before CharacterVector ctor, until RcppCore/Rcpp#947 gets me…

…rged in Rcpp.
tidyverse · Mar 15, 2019 · 972f423 · 972f423
1 parent 238c073
commit 972f423
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/include/dplyr/data/DataMask.h b/inst/include/dplyr/data/DataMask.h
@@ -348,7 +348,7 @@ class DataMask {
   // - delays setting up the environment until needed
   DataMask(const SlicedTibble& gdf) :
     column_bindings(),
-    symbol_map(gdf.data().size(), Rf_getAttrib(gdf.data(), symbols::names)),
+    symbol_map(gdf.data().size(), Rcpp::Shield<SEXP>(Rf_getAttrib(gdf.data(), symbols::names))),
     active_bindings_ready(false),
     proxy(new DataMaskProxy<SlicedTibble>(this))
   {