ListOf<T> inherits from relevant proxies (#183)

Author: kevinushey

ChangeLog

@@ -1,3 +1,9 @@
+2014-10-01  Kevin Ushey  <kevinushey@gmail.com>
+
+        * inst/include/Rcpp/vector/ListOf.h ListOf<T> inherits relevant proxies
+        * inst/unitTests/cpp/ListOf.cpp: Idem
+        * inst/unitTests/runit.ListOf.R: Idem
+
 2014-09-29  Dirk Eddelbuettel  <edd@debian.org>
 
         * debian/*: Changes for Debian release of 0.11.3

inst/include/Rcpp/vector/ListOf.h

@@ -23,7 +23,11 @@
 namespace Rcpp {
 
 template <typename T>
-class ListOf {
+class ListOf
+    : public NamesProxyPolicy<T>
+    , public AttributeProxyPolicy<T>
+    , public RObjectMethods<T>
+{
 
 public:
     typedef typename traits::r_vector_iterator<VECSXP>::type iterator;

inst/unitTests/cpp/ListOf.cpp

@@ -98,3 +98,13 @@ NumericVector test_nested_listof(ListOf< ListOf<NumericVector> > x) {
 ListOf<IntegerVector> test_return_IVList(List x) {
     return x;
 }
+
+// [[Rcpp::export]]
+CharacterVector listof_names(ListOf<NumericVector> x) {
+    return x.names();
+}
+
+// [[Rcpp::export]]
+SEXP listof_attr_foo(ListOf<NumericVector> x) {
+    return x.attr("foo");
+}

inst/unitTests/runit.ListOf.R

@@ -87,4 +87,15 @@ if (.runThisTest) {
         )
     }
 
+    test.ListOf.names <- function() {
+        l <- list(a = 1L, b = 2L, c = 3L)
+        checkEquals(listof_names(l), c("a", "b", "c"))
+    }
+
+    test.ListOf.attr.foo <- function() {
+        l <- list(a = 1L)
+        attr(l, "foo") <- "bar"
+        checkEquals(listof_attr_foo(l), "bar")
+    }
+
 }