improve how we print dimensions when using pretty dim - e.g., if you …

…already pass it a dimension.

R/utils.R

@@ -1165,7 +1165,13 @@ outside_version_range <- function(provided, range) {
   outside_range
 }
 
-pretty_dim <- function(x) paste0(dim(x), collapse = "x")
+pretty_dim <- function(x){
+  x_dim <- dim(x)
+  print_dim_x <- x_dim %||% x
+
+  prettied_dim <- paste0(print_dim_x, collapse = "x")
+  prettied_dim
+}
 
 are_initials <- function(x){
   vapply(