Rename shape_size2() to axis2()

r-lib · Jun 27, 2019 · d379350 · d379350
1 parent db1c1e1
commit d379350
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/shape.R b/R/shape.R
@@ -18,10 +18,10 @@ shape_match <- function(type, x, y) {
 
 shape_common <- function(x, y) {
   shape <- n_dim2(shape(x), shape(y))
-  map2_int(shape$x, shape$y, shape_size2)
+  map2_int(shape$x, shape$y, axis2)
 }
 
-shape_size2 <- function(nx, ny) {
+axis2 <- function(nx, ny) {
   if (nx == ny) {
     nx
   } else if (nx == 1L) {