Fix name collision

Author: Florian Plaza Oñate

inst/unitTests/cpp/Matrix.cpp

@@ -239,6 +239,6 @@ NumericVector runit_const_Matrix_column( const NumericMatrix& m ){
 }
 
 // [[Rcpp::export]]
-int access_with_bounds_checking(const IntegerMatrix m, int i, int j) {
+int mat_access_with_bounds_checking(const IntegerMatrix m, int i, int j) {
     return m.at(i, j);
 }

inst/unitTests/cpp/Vector.cpp

@@ -778,6 +778,6 @@ int noprotect_matrix( Matrix<REALSXP, NoProtectStorage> x){
   return x.nrow() ;
 }
 
-int access_with_bounds_checking(const IntegerVector x, int index) {
+int vec_access_with_bounds_checking(const IntegerVector x, int index) {
     return x.at(index);
 }

inst/unitTests/runit.Matrix.R

@@ -173,14 +173,14 @@ if (.runThisTest) {
 
     test.IntegerMatrix.accessor.with.bounds.checking <- function() {
         m <- matrix(seq(1L, 12, by=1L), nrow=4L, ncol=3L)
-        checkEquals(access_with_bounds_checking(m, 0, 0), 1)
-        checkEquals(access_with_bounds_checking(m, 1, 2), 10)
-        checkEquals(access_with_bounds_checking(m, 3, 2), 12)
-        checkException(access_with_bounds_checking(m, 4, 2) , msg = "index out of bounds not detected" )
-        checkException(access_with_bounds_checking(m, 3, 3) , msg = "index out of bounds not detected" )
-        checkException(access_with_bounds_checking(m, 3, -1) , msg = "index out of bounds not detected" )
-        checkException(access_with_bounds_checking(m, -1, 2) , msg = "index out of bounds not detected" )
-        checkException(access_with_bounds_checking(m, -1, -1) , msg = "index out of bounds not detected" )
+        checkEquals(mat_access_with_bounds_checking(m, 0, 0), 1)
+        checkEquals(mat_access_with_bounds_checking(m, 1, 2), 10)
+        checkEquals(mat_access_with_bounds_checking(m, 3, 2), 12)
+        checkException(mat_access_with_bounds_checking(m, 4, 2) , msg = "index out of bounds not detected" )
+        checkException(mat_access_with_bounds_checking(m, 3, 3) , msg = "index out of bounds not detected" )
+        checkException(mat_access_with_bounds_checking(m, 3, -1) , msg = "index out of bounds not detected" )
+        checkException(mat_access_with_bounds_checking(m, -1, 2) , msg = "index out of bounds not detected" )
+        checkException(mat_access_with_bounds_checking(m, -1, -1) , msg = "index out of bounds not detected" )
     }
 
 }

inst/unitTests/runit.Vector.R

@@ -686,9 +686,9 @@ if (.runThisTest) {
 
     test.IntegerVector.accessor.with.bounds.checking <- function() {
         x <- seq(1L, 5L, by=1L)
-        checkEquals(access_with_bounds_checking(x, 3), 4)
-        checkException(access_with_bounds_checking(x, 5) , msg = "index out of bounds not detected" )
-        checkException(access_with_bounds_checking(x, -1) , msg = "index out of bounds not detected" )
+        checkEquals(vec_access_with_bounds_checking(x, 3), 4)
+        checkException(vec_access_with_bounds_checking(x, 5) , msg = "index out of bounds not detected" )
+        checkException(vec_access_with_bounds_checking(x, -1) , msg = "index out of bounds not detected" )
     }
 }