$success
[1] 0

$message
$message$message
[1] "be"         "\"matrix\"" "is"         "\"array\"" 

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 1

$success
[1] 0

$message
$message$message
[1] "have"         "3 dimensions" "has"          "4"           

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "have"   "2 rows" "has"    "1"     

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "have"                  "size 2 at dimension 1" "has"                  
[4] "1"                    

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "have"   "2 rows" "has"    "0"     

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "have"                  "size 2 at dimension 3" "has"                  
[4] "3"                    

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "be"          "\"array\""   "is"          "\"integer\""

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 1

# really a corner case that shouldn't come about

$success
[1] 0

$message
$message$message
[1] "have"                "a \"dim\" attribute" ""                   
[4] ""                   

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 0

$success
[1] 0

$message
$message$message
[1] "be"          "\"list\""    "is"          "\"integer\""

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 1

vetr:::dim_compare(dim1, dim2, cur_obj = list())

$success
[1] 0

$message
$message$message
[1] "be"          "\"integer\"" "is"          "\"list\""   

$message$wrap
$message$wrap[[1]]
NULL

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 1