# NOT RUN {
# This is definitely true!
rray_all_equal(1, 1)
# Different types!
rray_all_equal(1, 1L)
# Different types!
rray_all_equal(rray(1), matrix(1))
# Different shapes!
rray_all_equal(matrix(1), matrix(1, nrow = 2))
# Are any values different?
rray_any_not_equal(c(1, 1), c(1, 2))
# Is the shape different?
rray_any_not_equal(1, c(1, 2))
# Dimension names don't matter
x <- matrix(1, dimnames = list("foo", "bar"))
rray_all_equal(x, matrix(1))
# }
Run the code above in your browser using DataLab