## Not run:
# in_paren <- TRUE # Taken from printnum()
# validate(in_paren, check_class = "logical", check_length = 1)
# validate(in_paren, check_class = "numeric", check_length = 1)
# ## End(Not run)
Run the code above in your browser using DataLab