Add check for rownames

[rossellhayes]

library(tblcheck)
library(waldo)

.solution <- data.frame(a = 1:2, b = 3:4)
.result <- `rownames<-`(.solution, c("x", "y"))

waldo::compare(.result, .solution)
#> `attr(old, 'row.names')` is a character vector ('x', 'y')
#> `attr(new, 'row.names')` is an integer vector (1, 2)
tbl_check(.result, .solution)
# No output

^{Created on 2022-07-06 by the reprex package (v2.0.1)}