Copy attributes on subsetting

Author: kevinushey

inst/include/Rcpp/vector/Subsetter.h

@@ -118,6 +118,7 @@ class SubsetProxy {
             }
             Rf_setAttrib(output, R_NamesSymbol, out_names);
         }
+        Rf_copyMostAttrib(lhs, output);
         return output;
     }
 

inst/unitTests/runit.subset.R

@@ -71,6 +71,10 @@ if (.runThisTest) {
             subset_test_assign(x)
         )
 
+        attr(x, "foo") <- "bar"
+        y <- subset_test_int(x, 0L)
+        checkIdentical( attr(y, "foo"), "bar" )
+        
     }
 
 }