Improve error message of expect_false() and expect_true()

[JamesThompsonC]

Address #138

Error when length(class(current)) > 1L

Fix uses class(current)[1] to construct the error message.

[TimTaylor]

AFAICT - This is similar to #92. For consistency it may be worth matching the style of error messaging used in the commit that fixed it. E.g. using

sprintf("object of class '<%s>'", paste(class(current), collapse=", "))

instead of

sprintf("object of class '%s'", class(current)[1])