assert_all_are_classes(x, severity = getOption("assertive.severity", "stop")) assert_any_are_classes(x, severity = getOption("assertive.severity", "stop")) is_class(x, .xname = get_name_in_parent(x))
"stop"
"warning"
"message"
"none"
is_class
isClass
assert_is_class
FALSE
assert_all_are_classes(c("lm", "numeric"))
Run the code above in your browser using DataLab