This should make the httr request fail, and the error message should indicate that. But right now it's an unrelated error message:
> browse_surveys(oauth_token = "not-the-right-token")
You have requests left today before you hit the limit
Error in if (as.numeric(out$headers$`x-ratelimit-app-global-day-remaining`)%%20 == :
argument is of length zero
This should make the httr request fail, and the error message should indicate that. But right now it's an unrelated error message: