$success
[1] 0

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

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

$message$wrap[[2]]
NULL



$df
[1] 0

$lvl
[1] 2

vetr:::attr_compare(matrix(integer(), 3, 3, dimnames = list(NULL, 
    letters[1:3])), matrix(integer(), 3, 3, dimnames = list(LETTERS[1:3], 
    letters[1:3])))

vetr:::attr_compare(matrix(integer(), 3, 3, dimnames = list(NULL, 
    letters[2:4])), matrix(integer(), 3, 3, dimnames = list(LETTERS[1:3], 
    letters[1:3])))

$success
[1] 0

$message
$message$message
[1] "be"    "\"b\"" "is"    "\"a\""

$message$wrap
$message$wrap[[1]]
colnames(NULL)[1]

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




$df
[1] 0

$lvl
[1] 5

vetr:::attr_compare(matrix(integer(), 3, 3, dimnames = list(letters[1:3], 
    letters[1:3])), matrix(integer(), 3, 3, dimnames = list(LETTERS[1:3], 
    letters[1:3])))

$success
[1] 0

$message
$message$message
[1] "be"    "\"a\"" "is"    "\"A\""

$message$wrap
$message$wrap[[1]]
row.names(NULL)[1]

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




$df
[1] 0

$lvl
[1] 5

vetr:::attr_compare(matrix(integer(), 3, 3, dimnames = list(LETTERS[1:3], 
    letters[1:3])), matrix(integer(), 3, 3, dimnames = list(a = LETTERS[1:3], 
    b = letters[1:3])))

vetr:::attr_compare(matrix(integer(), 3, 3, dimnames = list(A = LETTERS[1:3], 
    letters[1:3])), matrix(integer(), 3, 3, dimnames = list(a = LETTERS[1:3], 
    b = letters[1:3])))

$success
[1] 0

$message
$message$message
[1] "be"    "\"A\"" "is"    "\"a\""

$message$wrap
$message$wrap[[1]]
names(dimnames(NULL))[1]

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




$df
[1] 0

$lvl
[1] 5

vetr:::attr_compare(structure(list(integer(), character())), 
    data.frame(a = 1:10, b = letters[1:10]))

vetr:::attr_compare(structure(list(integer(), character()), class = "data.frame"), 
    data.frame(a = 1:10, b = letters[1:10]))

$success
[1] 1

$message
NULL

$df
[1] 1

$lvl
[1] 0

vetr:::attr_compare(structure(unname(data.frame(integer(), character())), 
    class = "data.frame"), data.frame(a = 1:10, b = letters[1:10]))