Bump Roxygen version

randef1ned · Jan 24, 2024 · 293a27d · 293a27d
1 parent 1e505a1
commit 293a27d
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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.")
   }
 }