Update hemibrain_reroot.R

natverse · Aug 25, 2023 · aae8d4a · aae8d4a
1 parent bdd446e
commit aae8d4a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/hemibrain_reroot.R b/R/hemibrain_reroot.R
@@ -434,14 +434,14 @@ remove_bad_synapses.neuron <- function(x,
                                                                 from = nat::rootpoints(x),
                                                                 to = primary.branch.point,
                                                                 mode = "all")$vpath)))
-    x$connectors[x$connectors$treenode_id%in%pnt,"status"]="near_pnt"
+    x$connectors[x$connectors$treenode_id%in%pnt,"status"]="on_pnt"
     syns = unique(x$connectors$treenode_id)
     syns = (1:nrow(x$d))[match(syns,x$d$PointNo)]
     # not within radius of pnt
     dists = igraph::distances(nat::as.ngraph(x), v = pnt, to = syns, mode = "all")
     dists = apply(dists, 2, function(x) sum(x<min.nodes.from.pnt))
     names(dists) = syns
-    x$connectors[x$connectors$treenode_id %in% names(dists)[as.numeric(dists)==0],"status"]="on_pnt"
+    x$connectors[x$connectors$treenode_id %in% names(dists)[as.numeric(dists)==0],"status"]="near_pnt"
   }
   if(soma){
     # not within radius of soma