suggest Matrix

Author: pachadotdev

cpp11armadillotest/DESCRIPTION

@@ -12,6 +12,7 @@ Authors@R: c(
     )
 Suggests: 
     knitr,
+    Matrix,
     rmarkdown,
     testthat (>= 3.0.0)
 Depends: R(>= 3.5.0)

cpp11armadillotest/tests/testthat/test-sparse-matrices.R

@@ -1,4 +1,8 @@
 test_that("sparse matrices copy works", {
+  if (!requireNamespace("Matrix", quietly = TRUE)) {
+    skip("Matrix package is not available")
+  }
+
   M <- Matrix::Matrix(c(0, 0, 0, 2, 6, 0, -1, 5, 0, 4, 3, 0, 0, 0, 5, 0),
     nrow = 4, ncol = 4, sparse = TRUE
   )

inst/include/wrappers/sparse_matrices.hpp

@@ -36,7 +36,8 @@ inline SpMat<T> dblint_matrix_to_SpMat_(const U& x) {
 #ifdef _OPENMP
 #pragma omp parallel for schedule(static)
 #endif
-  for (const auto& pos : non_zero_positions) {
+  for (size_t k = 0; k < non_zero_positions.size(); ++k) {
+    const auto& pos = non_zero_positions[k];
     y(pos.first, pos.second) = x(pos.first, pos.second);
   }