better util name

Author: HelenaLC

R/centroids.R

@@ -36,7 +36,7 @@ setMethod("centroids", "SpatialDataLabel", \(x,
     as=c("data.frame", "matrix")) {
     y <- data(x)
     as <- match.arg(as)
-    ax <- .get_space_ax(x)
+    ax <- .get_xy_axes(x)
     # max-projection
     if (length(dim(y)) > 2) 
         y <- apply(y, c(ax$y, ax$x), max)

R/crop.R

@@ -119,7 +119,7 @@ NULL
         n <- length(nms)
         ix <- n; iy <- n-1
     }
-    ax <- .get_space_ax(x)
+    ax <- .get_xy_axes(x)
     .adapt <- \(t, type) {
         if (is.null(t)) return(NULL)
         if (type %in% c("scale", "translation"))

R/sdArray.R

@@ -168,7 +168,7 @@ setMethod("channels", "SpatialDataElement", \(x, ...) stop("only 'images' have c
 .sub_sda <- \(x, yx, z=list()) {
     # yx: user-provided spatial slices (list of 2: y, x)
     # z: user-provided channel slices (list of 1)
-    ax <- .get_space_ax(x)
+    ax <- .get_xy_axes(x)
     ls <- seq_along(data(x, NULL))
     data(x) <- lapply(ls, \(l) {
         sf <- 2^(l-1) # scale factor for current level

R/trans.R

@@ -137,7 +137,7 @@ setMethod("rotate", "SpatialDataArray", \(x, t, k=1, ..., rev=FALSE) {
     if (rev) t <- if (f == "scale") 1/t else -t
 
     # project to spatial (XY) dims
-    ax <- .get_space_ax(x)
+    ax <- .get_xy_axes(x)
     xy <- c(ax$x, ax$y)
     .t <- t[xy]
     .d <- d[xy]

R/utils.R

@@ -121,7 +121,7 @@
 }
 
 # internal helper to resolve spatial (XY) axis indices
-.get_space_ax <- \(x) {
+.get_xy_axes <- \(x) {
     nm <- axes(x, "name")
     ix <- match("x", nm)
     iy <- match("y", nm)