FIX: converting sparse matrix to a dense vector leads to memory error…

…s for large sparse matrices and slow down program. While converting dense matrix to a sparse matrix have at worst the same time as previous method, works faster sparse matrices and doesn't lead to memory issues.

R/argchecks_mid.R

@@ -227,7 +227,7 @@
     (is.matrix(x) || inherits(x, "sparseMatrix")) &&
     isTRUE(dim(x)[[1]] == dim(x)[[2]]) &&
     Matrix::isSymmetric(x, check.attributes = FALSE) &&
-    all(unique(as.vector(x)) %in% c(0, 1))
+    all(Matrix::Matrix(x, sparse = TRUE)@x %in% c(0, 1))
 }
 .MUST.isAdjacencyMatrix <- function(x, name = NULL) {
   if (is.null(name)) { name <- deparse(substitute(x)) }