how do I get a "bad error message" error here?

opened via imdone.io from a code comment on 76dfca57 by Thomas Mailund

Lines 69 to 74 in 76dfca5

    
           # FIXME: how do I get a "bad error message" error here? 
        
           error_msg <- glue::glue( 
        
               "The argument {arg} is of type {class(arg)} ", 
        
               "but should be of type {type}." 
        
           ) 
        
           stop(simpleError(error_msg, call = match.call()))

	# FIXME: how do I get a "bad error message" error here?
	error_msg <- glue::glue(
	"The argument {arg} is of type {class(arg)} ",
	"but should be of type {type}."
	)
	stop(simpleError(error_msg, call = match.call()))