reroot method added

NAMESPACE

@@ -12,6 +12,7 @@ S3method(nsoma,neuron)
 S3method(nsoma,neuronlist)
 S3method(plot3d,catmaidneuron)
 S3method(print,catmaid_connection)
+S3method(reroot,catmaidneuron)
 S3method(soma,neuron)
 S3method(soma,neuronlist)
 S3method(somaid,neuron)

R/catmaid_nat.R

@@ -441,6 +441,12 @@ summary.catmaidneuron<-function(object, ...) {
   df
 }
 
+#' @export
+reroot.catmaidneuron<-function(object, ...) {
+  n = NextMethod()
+  copy_tags_connectors(n, object)
+}
+
 #' Copy the tag / connector info from a catmaid neuron to a new neuron
 #' @description This function is intended primarily for developer use as a way 
 #'   to copy over connector/tag information typically contained in CATMAID

tests/testthat/test-nat.R

@@ -34,3 +34,13 @@ test_that("Ops.catmaidneuron behaves", {
                t(t(xyzmatrix(connectors(AV4b1)))*c(2,3,4)))
   expect_equal((AV4b1*2)/2, AV4b1)
 })
+
+test_that("reroot.catmaidneuron works", {
+  data(AV4b1)
+  soma <- list(id=2712463, idx=126)
+  rAV4b1 <- reroot(AV4b1, pointno = soma$id)
+  # check if new soma has correct index
+  expect_equal(rAV4b1$StartPoint, soma$idx)
+  # old soma is no longer without parent
+  expect_true(rAV4b1$d[AV4b1$StartPoint, "Parent"] != -1)
+})