Added as() and clone() member functions to Nullable

Author: dcdillon

inst/include/Rcpp/Nullable.h

@@ -116,6 +116,16 @@ namespace Rcpp {
          */
         inline bool isSet(void) const { return m_set; }
 
+        /**
+         * Returns m_sexp as a T
+         */
+        inline T as() { return Rcpp::as< T >(get()); }
+
+        /**
+         * Return a clone of m_sexp as a T
+         */
+        inline T clone() const { return Rcpp::clone(as()); }
+
     private:
         SEXP m_sexp;
         bool m_set;

inst/unitTests/cpp/misc.cpp

@@ -198,3 +198,12 @@ SEXP testNullableGet(const Nullable<NumericMatrix>& M) {
     return M.get();
 }
 
+// [[Rcpp::export]]
+NumericMatrix testNullableAs(Nullable<NumericMatrix>& M) {
+    return M.as();
+}
+
+// [[Rcpp::export]]
+NumericMatrix testNullableClone(const Nullable<NumericMatrix>& M) {
+    return M.clone();
+}

inst/unitTests/runit.misc.R

@@ -185,4 +185,14 @@ if (.runThisTest) {
         M <- matrix(1:4, 2, 2)
         checkEquals( testNullableGet(M), M )
     }
+
+    test.NullableAccessAs <- function() {
+        M <- matrix(1:4, 2, 2)
+        checkEquals( testNullableAs(M), M )
+    }
+
+    test.NullableAccessAs <- function() {
+        M <- matrix(1:4, 2, 2)
+        checkEquals( testNullableClone(M), M )
+    }
 }