message(simpleError('msg')) should not behave like stop(simpleError('msg'))

[flying-sheep]

as explained in IRkernel/IRkernel#231 (comment), the following code shouldn’t trigger the stopifnot.

msg <- NULL
err <- NULL
oh <- evaluate::new_output_handler(
    message = function(m) msg <<- m,
    error   = function(e) err <<- e)

evaluate(
    "tryCatch(stop('I should be caught as message'), error = message)",
    output_handler = oh)

stopifnot(is.null(err))

[hadley]

Maybe R has changed in the last ~8 years, but the current behaviour looks consistent with the console to me:

rlang::catch_cnd(tryCatch(stop('I should be caught as message'), error = message))
#> <simpleError in doTryCatch(return(expr), name, parentenv, handler): I should be caught as message>