Fix to badly behaved isFiniteInteger function which was unlisting matrices.

R/utils.R

@@ -9,7 +9,9 @@
 
 isFiniteInteger = function(x)
 {
-  is.finite(x) & isTRUE(all.equal(x, as.integer(x)))
+  int = x
+  mode(x) = 'integer'
+  is.finite(x) & isTRUE(all.equal(x, int))
 }
 isFiniteLogical = function(x)
 {