Need to import sparse constructor as well

Author: itsrainingdata

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(edgeList,SparseBlockMatrixR)
+S3method(sparse,SparseBlockMatrixR)
 export(ccdr.run)
 importFrom(Rcpp,sourceCpp)
 importFrom(sparsebnUtils,edgeList)

R/s3-SparseBlockMatrixR.R

@@ -265,6 +265,7 @@ edgeList.SparseBlockMatrixR <- function(x){
 # sparse.SparseBlockMatrixR
 # 2016-01-22: Migrated to this file from s3-sparse.R
 #
+#' @export
 sparse.SparseBlockMatrixR <- function(x, index = "R", ...){
 
     if(index != "R" && index != "C") stop("Invalid entry for index parameter: Must be either 'R' or 'C'!")
@@ -302,16 +303,16 @@ sparse.SparseBlockMatrixR <- function(x, index = "R", ...){
     }
 } # END SPARSE.SPARSEBLOCKMATRIXR
 
-#------------------------------------------------------------------------------#
-# as.sparse.SparseBlockMatrixR
-#  Convert FROM SparseBlockMatrixR TO sparse
-#  By default, return the object using R indexing. If desired, the method can return C-style indexing by setting
-#    index = "C".
-# 2016-01-22: Migrated to this file from s3-sparse.R
-#
-as.sparse.SparseBlockMatrixR <- function(x, index = "R", ...){
-    sparse.SparseBlockMatrixR(x, index)
-} # END AS.SPARSE.SPARSEBLOCKMATRIXR
+# #------------------------------------------------------------------------------#
+# # as.sparse.SparseBlockMatrixR
+# #  Convert FROM SparseBlockMatrixR TO sparse
+# #  By default, return the object using R indexing. If desired, the method can return C-style indexing by setting
+# #    index = "C".
+# # 2016-01-22: Migrated to this file from s3-sparse.R
+# #
+# as.sparse.SparseBlockMatrixR <- function(x, index = "R", ...){
+#     sparse.SparseBlockMatrixR(x, index)
+# } # END AS.SPARSE.SPARSEBLOCKMATRIXR
 
 # to_graphNEL.SparseBlockMatrixR
 #  Convert SBM object to graphNEL object

R/zzz.R

@@ -15,6 +15,7 @@
 #' @importFrom sparsebnUtils num.edges
 #' @importFrom sparsebnUtils is.zero
 #' @importFrom sparsebnUtils edgeList
+#' @importFrom sparsebnUtils sparse
 
 .onAttach <- function(libname, pkgname){
     ### Only sparsebn needs a package startup message

tests/testthat/test-s3_as.R

@@ -77,12 +77,12 @@ test_that("as.sparse -> as.SparseBlockMatrixR -> as.sparse makes no changes", {
     m <- matrix(rep(0, 1), ncol = 1)
     sp <- sparsebnUtils::as.sparse(m)
     sbm <- suppressWarnings(sparsebnUtils::as.sparse(as.SparseBlockMatrixR(sp)))
-    expect_that(sbm, equals(sp))
+    expect_equivalent(sbm, sp)
 
     m <- matrix(rep(0, 4), ncol = 2)
     sp <- sparsebnUtils::as.sparse(m)
     sbm <- suppressWarnings(sparsebnUtils::as.sparse(as.SparseBlockMatrixR(sp)))
-    expect_that(sbm, equals(sp))
+    expect_equivalent(sbm, sp)
 
     ### NOTE: Cannot test on random sparse matrix since SBM class ASSUMES a block structure,
     ###        i.e. induced by a DAG
@@ -91,7 +91,7 @@ test_that("as.sparse -> as.SparseBlockMatrixR -> as.sparse makes no changes", {
     m <- random.dag.matrix(10, 10)
     sp <- sparsebnUtils::as.sparse(m)
     sbm <- suppressWarnings(sparsebnUtils::as.sparse(as.SparseBlockMatrixR(sp)))
-    expect_that(sbm, equals(sp))
+    expect_equivalent(sbm, sp)
 })
 
 ### SparseBlockMatrixR -> edgeList -> matrix