added (optional) tests for #105, #106

Author: eddelbuettel

ChangeLog

@@ -1,5 +1,8 @@
 2022-01-16  Dirk Eddelbuettel  <[email protected]>
 
+	* inst/tinytest/test_wrap.R: Added (optional) large memory wrap tests
+ 	* inst/tinytest/cpp/wrap.cpp: Added C++ part of test
+
 	* .codecov.yml: Added to not trigger PR fail for small additions
 
 2022-01-16  Mikael Jagan  <[email protected]>

inst/tinytest/cpp/wrap.cpp

@@ -222,3 +222,23 @@ Rcpp::List as_Array2D(Rcpp::List input) {
 
     return res ;
 }
+
+// wrap large vector, passes for n > 2^31-1 as no dim attribute
+// [[Rcpp::export]]
+Rcpp::IntegerVector vector_large_wrap(R_xlen_t n) {
+    Eigen::VectorXi x(n, 1);
+    for (R_xlen_t i = 0; i < n; ++i) {
+        x(i) = static_cast<int32_t>(i % 10);
+    }
+    return Rcpp::wrap(x);
+}
+
+// wrap large matrix, fails for n > 2^31-1 if dim attribute > 2^31-1
+// [[Rcpp::export]]
+Rcpp::IntegerMatrix matrix_large_wrap(R_xlen_t n) {
+    Eigen::MatrixXi x(n, 1);
+    for (R_xlen_t i = 0; i < n; ++i) {
+        x(i, 0) = static_cast<int32_t>(i % 10);
+    }
+    return Rcpp::wrap(x);
+}

inst/tinytest/test_wrap.R

@@ -1,5 +1,5 @@
-#
-# Copyright (C) 2012 - 2013  Douglas Bates, Dirk Eddelbuettel and Romain Francois
+
+# Copyright (C) 2012 - 2022  Douglas Bates, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of RcppEigen.
 #
@@ -85,3 +85,25 @@ integer_mat <- matrix(as.integer(diag(nrow = 5L)))
 numeric_mat <- diag(nrow = 5L)
 res <- as_Array2D(list(integer_mat, numeric_mat))
 expect_equal(unlist(res), rep.int(5, 6L))
+
+
+## CI systems may have limited memory, and CRAN may not like us creating multi-gb objects
+## so remainer is opt-in
+if (Sys.getenv("RunLargeMemoryTests") != "yes") exit_file("Set 'RunLargeMemoryTests' to 'yes' to run.")
+
+## add test for wrapping of large vectors (PRs #105, 106) which works for vectors
+## but fails for matrices as we violate the 'size_t value permitted for lenth values
+## but not inside a `dim` object of type `integer` (aka `int32_t`)
+n <- 2^31 + 100                         # in excess of limit of 2^31 - 1
+res <- vector_large_wrap(n)
+expect_true(is.vector(res, "integer"))
+expect_equal(length(res), n)
+expect_equal(res[seq_len(2^10)], rep_len(0:9, 2^10))
+
+expect_error(matrix_large_wrap(n))
+n <- 2^31 - 100                         # within limit of 2^31 - 1 for dim given one column
+res <- matrix_large_wrap(n)
+expect_true(is.matrix(res))
+expect_equal(typeof(res), "integer")
+expect_equal(dim(res), c(n,1))
+expect_equal(res[seq_len(2^10)], rep_len(0:9, 2^10))