simplify banc_nm2raw/banc_raw2nm

R/cave-tables.R

@@ -111,7 +111,7 @@ banc_cell_info <- function(rootids = NULL, rawcoords = FALSE){
     res
   else {
     res %>% dplyr::mutate(dplyr::across(dplyr::ends_with("position"), function(x)
-      nat::xyzmatrix2str(fancr::banc_raw2nm(x))))
+      nat::xyzmatrix2str(banc_raw2nm(x))))
   }
 }
 

R/coords.R

@@ -32,20 +32,8 @@ banc_voxdims <- memoise::memoise(function(url=choose_banc(set=FALSE)[['fafbseg.s
 #' \dontrun{
 #' banc_nm2raw(clipr::read_clip())
 #' }
-banc_nm2raw <- function(x, vd=banc_voxdims()) {
-  xyz<-nat::xyzmatrix(x)
-  xyz[,1]=xyz[,1]/vd[1]
-  xyz[,2]=xyz[,2]/vd[2]
-  xyz[,3]=xyz[,3]/vd[3]
-  xyz
-}
+banc_nm2raw <- function(x, vd=banc_voxdims()) fancr::fanc_nm2raw(x, vd=vd)
 
 #' @export
 #' @rdname banc_voxdims
-banc_raw2nm <- function(x, vd=banc_voxdims()) {
-  xyz<-nat::xyzmatrix(x)
-  xyz[,1]=xyz[,1]*vd[1]
-  xyz[,2]=xyz[,2]*vd[2]
-  xyz[,3]=xyz[,3]*vd[3]
-  xyz
-}
+banc_raw2nm <- function(x, vd=banc_voxdims()) fancr::fanc_raw2nm(x, vd=vd)