powered by
assert_is_qr(x, severity = getOption("assertive.severity", "stop")) is_qr(x, .xname = get_name_in_parent(x))
"stop"
"warning"
"message"
"none"
is_qr
is.qr
assert_is_qr
FALSE
assert_is_qr(qr(matrix(rnorm(25), nrow = 5)))
Run the code above in your browser using DataLab