assert_is_S4(x, severity = getOption("assertive.severity", "stop")) assert_is_s4(x, severity = getOption("assertive.severity", "stop")) is_s4(x, .xname = get_name_in_parent(x)) is_S4(x, .xname = get_name_in_parent(x))
"stop"
"warning"
"message"
"none"
is_S4
isS4
assert_is_S4
FALSE
assert_is_s4(getClass("MethodDefinition")) #These examples should fail. assertive.base::dont_stop(assert_is_s4(1:10))
Run the code above in your browser using DataCamp Workspace