Force ARMA_64BIT_WORD

Author: eddelbuettel

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: RcppArmadillo
 Type: Package
 Title: 'Rcpp' Integration for the 'Armadillo' Templated Linear Algebra Library
-Version: 14.0.2-1
+Version: 14.0.2-1.1
 Date: 2024-09-10
 Authors@R: c(person("Dirk", "Eddelbuettel", role = c("aut", "cre"), email = "[email protected]",
                     comment = c(ORCID = "0000-0001-6419-907X")),

inst/include/RcppArmadillo/config/RcppArmadilloConfig.h

@@ -126,7 +126,8 @@
 // only used int32_t -- so we select the shorter representation here.
 // Unless int64_t is explicitly required during compilation.
 #if !defined(ARMA_64BIT_WORD)
-  #define ARMA_32BIT_WORD 1
+  //#define ARMA_32BIT_WORD 1
+  #define ARMA_64BIT_WORD 1
 #endif
 
 // To return arma::vec or arma::rowvec as R vector (i.e. dimensionless),

inst/include/RcppArmadillo/interface/RcppArmadilloAs.h

@@ -483,9 +483,31 @@ namespace traits {
         Rcpp::Vector<RTYPE> vec;
     };
 
-    // specializations for 3 cube typedefs that fail above
-    // first use viable conversion SEXP -> Cube<other_t>
+    // specializations for 3 (or 4, see below) cube typedefs that
+    // fail above first use viable conversion SEXP -> Cube<other_t>
     // then use conv_to<cube_t>::from(other_t other)
+#ifdef ARMA_64BIT_WORD
+    // if we use ARMA_64BIT_WORD we cannot pass int through and
+    // need a fourth specialization similar to the other three
+    template <>
+    class Exporter<arma::icube> {
+    public:
+        typedef arma::icube cube_t;
+
+        Exporter(SEXP x)
+            : tmp(Exporter<arma::cube>(x).get()) {}
+
+        cube_t get() {
+            cube_t result = arma::conv_to<cube_t>::from(tmp);
+            return result;
+        }
+
+    private:
+        typedef arma::cube other_t;
+        other_t tmp;
+    };
+#endif
+
     template <>
     class Exporter<arma::fcube> {
     public:

inst/tinytest/test_rng.R

@@ -52,7 +52,8 @@ expect_true(max(a) < 1)#, msg="randu max")
 set.seed(123)
 a <- randi(10)
 expect_true(min(a) > 0)#, msg="randi min")
-expect_true(typeof(a) == "integer")#, msg="randi type")
+## under ARMA_64BIT_WORD we get 'double'
+expect_true(typeof(a) == "integer" || typeof(a) == "double")#, msg="randi type")
 
 #test.randn <- function() {
 set.seed(123)