Bump Roxygen version

Author: randef1ned

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

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)

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)))
-}

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.")
   }
 }