R/catmaid_xform.R

In jefferis/rcatmaid: R access to the API for the CATMAID web image annotation tool

#' @export
xform.catmaidneuron <- function(x, reg, ...) {
  xt=NextMethod(x)
  conns <- connectors(x)
  if(!is.null(conns)) {
    xyzmatrix(conns) <-  xform(xyzmatrix(conns), reg=reg, ...)
    xt[['connectors']] <- conns
  }
  xt
}