This function is designed for use with assert_create_advanced. It must return
TRUE for the assertion to pass or a string representing the error message if the
assertion should fail.
Usage
is_number_advanced(x)
Value
Returns invisible(TRUE) if x is a numeric value with length 1. Returns a string
with an error message if x is not a numeric value or has a length other than 1.