expect_equal does not print values of vectors when sizes differ

[levsa]

It would be nice if expect_equal printed the values even when sizes differ. Example:

> a <- c(1)
> b <- c(2,3)
> testthat::expect_equal(a,b)
Error: `a` not equal to `b`.
Lengths differ: 1 is not 2