Made get.inducedSubgraph() generic.

references #86
statnet · Apr 2, 2024 · 5037d4c · 5037d4c
1 parent 5f28b1f
commit 5037d4c
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -37,6 +37,7 @@ S3method(get.edge.attribute,list)
 S3method(get.edge.attribute,network)
 S3method(get.edge.value,list)
 S3method(get.edge.value,network)
+S3method(get.inducedSubgraph,network)
 S3method(get.network.attribute,network)
 S3method(get.vertex.attribute,network)
 S3method(is.bipartite,mixingmatrix)

diff --git a/R/access.R b/R/access.R
@@ -936,7 +936,13 @@ get.dyads.eids<-function(x,tails,heads,neighborhood = c("out", "in", "combined")
 #' 
 #' 
 #' @export get.inducedSubgraph
-get.inducedSubgraph<-function(x, v, alters=NULL, eid=NULL){
+get.inducedSubgraph <- function(x, ...) {
+  UseMethod("get.inducedSubgraph")
+}
+
+#' @rdname get.inducedSubgraph
+#' @export
+get.inducedSubgraph.network <- function(x, v, alters=NULL, eid=NULL){
   #Check to be sure we were called with a network
   if(!is.network(x))
     stop("get.inducedSubgraph requires an argument of class network.")

diff --git a/man/get.inducedSubgraph.Rd b/man/get.inducedSubgraph.Rd