alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:9, nrow = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

row.names(matrix(1:9, nrow = 3, dimnames = list(NULL, c("R", 
    "G", "B"))))
should be type "character" (is "NULL")

[1] "row.names(matrix(1:9, nrow = 3, dimnames = list(NULL, c(\"R\", \n    \"G\", \"B\"))))\nshould be type \"character\" (is \"NULL\")"

alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:9, nrow = 3, dimnames = list(c("R", 
    "G", "B"), c("bacon", "turkey", "bravo"))))

[1] "`1:9` should be \"matrix\" (is \"integer\")"

mx.tpl <- matrix(integer(), ncol = 3, dimnames = list(row.id = NULL, 
    c("R", "G", "B")))

mx.cur <- matrix(sample(0:255, 12), ncol = 3, dimnames = list(row.id = 1:4, 
    rgb = c("R", "G", "B")))

mx.cur2 <- matrix(sample(0:255, 12), ncol = 3, dimnames = list(1:4, 
    c("R", "G", "B")))

`dimnames(mx.cur2)` should have attribute "names"

[1] "`dimnames(mx.cur2)` should have attribute \"names\""

`1:3` should be class "data.frame" (is "integer")

[1] "`1:3` should be class \"data.frame\" (is \"integer\")"

`mtcars` should be type "integer-like" (is "list")

[1] "`mtcars` should be type \"integer-like\" (is \"list\")"

alike(data.frame(), data.frame(a = 1:3, b = letters[1:3]))

alike(data.frame(a = integer(), b = factor()), data.frame(a = 1:3, 
    b = letters[1:3], stringsAsFactors = TRUE))

alike(data.frame(a = factor(), b = factor()), data.frame(a = 1:3, 
    b = letters[1:3]))

`data.frame(a = 1:3, b = letters[1:3])$a` should be class "factor" (is "integer")

[1] "`data.frame(a = 1:3, b = letters[1:3])$a` should be class \"factor\" (is \"integer\")"

alike(list(NULL, structure("a", class = "x")), list(NULL, structure("a", 
    class = "y")))

`list(NULL, structure("a", class = "y"))[[2]]` should be class "x" (is "y")

[1] "`list(NULL, structure(\"a\", class = \"y\"))[[2]]` should be class \"x\" (is \"y\")"

alike(list(integer(), data.frame(a = integer(), b = numeric()), 
    matrix(integer(), nrow = 3)), list(1:10, data.frame(a = 1:200, 
    b = runif(20)), matrix(1:27, nrow = 3)))