Update all_equal_dim_names() not to warn

UchidaMizuki · Jun 22, 2024 · 21a2d25 · 21a2d25
1 parent 92533ad
commit 21a2d25
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -53,7 +53,8 @@ all_equal_dim_names <- function(target, current) {
   if (identical(names(target), names(current))) {
     all(purrr::map2_lgl(target, current,
                         function(target, current) {
-                          isTRUE(all.equal(target, current))
+                          vec_size(target) == vec_size(current) &&
+                            all(target == current)
                         }))
   } else {
     FALSE