Better message for 5xx errors

[kevinykuo]

Error in request_token() : 
  Service Unavailable (HTTP 503). Failed to get an access token. Confirm that the environment variables
    `RSCLOUD_CLIENT_ID` and `RSCLOUD_CLIENT_SECRET` are set correctly.

[coatless]

Could you remove the Error in ... part by using stop(..., .call = FALSE)?