From 293a27d0f5fe3f7137ff3cbff1c682cbc3562829 Mon Sep 17 00:00:00 2001
From: randef1ned <46381867+randef1ned@users.noreply.github.com>
Date: Wed, 24 Jan 2024 20:59:53 +0800
Subject: [PATCH] Bump Roxygen version

---
 DESCRIPTION         | 2 +-
 NAMESPACE           | 1 -
 R/diffusr-package.R | 5 -----
 R/is.dgCMatrix.R    | 4 ++++
 4 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index d2ba4aa..80de4b5 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -37,7 +37,7 @@ Suggests:
     lintr,
     Matrix
 VignetteBuilder: knitr
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
 Encoding: UTF-8
 Config/testthat/edition: 3
 SystemRequirements: C++17
diff --git a/NAMESPACE b/NAMESPACE
index 10b6161..663120e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -15,7 +15,6 @@ importFrom(checkmate,assert_integer)
 importFrom(checkmate,assert_logical)
 importFrom(checkmate,assert_number)
 importFrom(checkmate,assert_numeric)
-importFrom(checkmate,assert_vector)
 importFrom(checkmate,check_matrix)
 importFrom(checkmate,check_numeric)
 importFrom(checkmate,test_atomic_vector)
diff --git a/R/diffusr-package.R b/R/diffusr-package.R
index eeb69b5..022d3d8 100644
--- a/R/diffusr-package.R
+++ b/R/diffusr-package.R
@@ -51,10 +51,5 @@
 #' @useDynLib diffusr
 #'
 #' @importFrom Rcpp sourceCpp
-#' @importFrom checkmate assert_vector
-#' @importFrom sparseMatrixStats colAnyNAs
 NULL
 
-.onAttach <- function(libname, pkgname) {
-  assert_vector(colAnyNAs(matrix(0)))
-}
diff --git a/R/is.dgCMatrix.R b/R/is.dgCMatrix.R
index d9e6a44..7ee5a0e 100644
--- a/R/is.dgCMatrix.R
+++ b/R/is.dgCMatrix.R
@@ -18,6 +18,8 @@ is.dgCMatrix <- function(mat) {
 #'
 #' @export
 #'
+#' @importFrom sparseMatrixStats colAnyNAs
+#'
 assert_dgCMatrix <- function(adj_matrix, non_negative = TRUE) {
   if (adj_matrix@Dim[1] != adj_matrix@Dim[2]) {
     stop(paste("Error: Assertion on 'adj_matrix' failed: Must have exactly",
@@ -29,5 +31,7 @@ assert_dgCMatrix <- function(adj_matrix, non_negative = TRUE) {
   } else if (non_negative && any(adj_matrix@x < 0)) {
     stop(paste("Error: Assertion on 'adj_matrix' failed: Element",
                seq_along(adj_matrix@x)[adj_matrix@x < 0][1], "is not >= 0."))
+  } else if (colAnyNAs(adj_matrix)) {
+    stop("Error: NAs in the matrix.")
   }
 }