Merge pull request #465 from dokato/so_fix

Minor SO fix
natverse · Jun 3, 2021 · 760f19e · 760f19e
2 parents c203a26 + 0d77b02
commit 760f19e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/ngraph.R b/R/ngraph.R
@@ -394,6 +394,10 @@ strahler_order<-function(x){
   roots=rootpoints(s, original.ids=FALSE)
   if(length(roots)>1)
     stop("strahler_order not yet defined for multiple subtrees")
+  # quick win for single branch neurons
+  if (length(x$BranchPoints) == 0)
+    return(list(points=rep(1, nrow(x$d)),
+                segments=rep(1, length(x$SegList))))
 
   b=graph.bfs(s, root=roots, neimode = 'out', unreachable=F, father=T)