Connect$raise_error() prints a message even if the error is captured in tryCatch()

[toph-allen]

This is problematic for handling endpoints that have different paths on different versions of Connect.

connectapi/R/connect.R

Lines 79 to 96 in adc2041

	raise_error = function(res) {
	if (httr::http_error(res)) {
	err <- sprintf(
	"%s request failed with %s",
	res$request$url,
	httr::http_status(res)$message
	)
	tryCatch(
	{
	message(capture.output(str(httr::content(res))))
	},
	error = function(e) {
	message(e)
	}
	)
	stop(err)
	}
	},