igraph tweaks & typos

natverse · Jan 20, 2024 · 735628d · 735628d
1 parent a1ef4d7
commit 735628d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/neuron.R b/R/neuron.R
@@ -1411,7 +1411,7 @@ distal_to <- function(x, node.idx=NULL, node.pointno=NULL, root.idx=NULL,
     g=as.directed.usingroot(gorig, root = root.idx)
   }
 
-  #Step3: For each node id, travese the graph from the given node using depth first search and return the visited
+  #Step3: For each node id, traverse the graph from the given node using depth first search and return the visited
   #nodes..
   l=sapply(node.idx, dfs_traversal, g, simplify = FALSE)
   if(length(node.idx)==1) l[[1]] else l

diff --git a/R/ngraph.R b/R/ngraph.R
@@ -533,11 +533,11 @@ prune_strahler<-function(x, orderstoprune=1:2, ...) {
 prune_vertices<-function(x, verticestoprune, invert=FALSE, ...) {
   g=as.ngraph(x)
 
-  # because igraph.vs sequences are atttached to a specific graph
+  # because igraph.vs sequences are attached to a specific graph
   if(inherits(verticestoprune, "igraph.vs")) 
     verticestoprune=as.integer(verticestoprune)
   if(invert) {
-    nvertices=nrow(xyzmatrix(x))
+    nvertices=igraph::vcount(g)
     verticestoprune=setdiff(seq_len(nvertices), verticestoprune)
   }
   dg=igraph::delete_vertices(g, verticestoprune)