Missing import: Need edgeList constructor

itsrainingdata · itsrainingdata · commit fb51ff82a5fb · 2016-11-10T13:48:37.000-05:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,7 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(edgeList,SparseBlockMatrixR)
 export(ccdr.run)
 importFrom(Rcpp,sourceCpp)
+importFrom(sparsebnUtils,edgeList)
 importFrom(sparsebnUtils,get.adjacency.matrix)
 importFrom(sparsebnUtils,is.zero)
 importFrom(sparsebnUtils,num.edges)
diff --git a/R/s3-SparseBlockMatrixR.R b/R/s3-SparseBlockMatrixR.R
@@ -244,6 +244,7 @@ as.matrix.SparseBlockMatrixR <- function(x){
 # edgeList.SparseBlockMatrixR
 # Coerce SBM to edge list
 #
+#' @export
 edgeList.SparseBlockMatrixR <- function(x){
     #
     # We have to be careful in obtaining the edge list of a SparseBlockMatrixR object:
diff --git a/R/zzz.R b/R/zzz.R
@@ -14,6 +14,7 @@
 #' @importFrom sparsebnUtils num.nodes
 #' @importFrom sparsebnUtils num.edges
 #' @importFrom sparsebnUtils is.zero
+#' @importFrom sparsebnUtils edgeList
 
 .onAttach <- function(libname, pkgname){
     ### Only sparsebn needs a package startup message

Original file line number	Diff line number	Diff line change
`@@ -244,6 +244,7 @@ as.matrix.SparseBlockMatrixR <- function(x){`
`244`	`244`	`# edgeList.SparseBlockMatrixR`
`245`	`245`	`# Coerce SBM to edge list`
`246`	`246`	`#`
	`247`	`+#' @export`
`247`	`248`	`edgeList.SparseBlockMatrixR <- function(x){`
`248`	`249`	`#`
`249`	`250`	`# We have to be careful in obtaining the edge list of a SparseBlockMatrixR object:`