set_config and with_config not work with token config

[artemklevtsov]

Hi.

I observe strange behaviour with the config options.

is(token) # my token
[1] "Token2.0"     "Token"        "envRefClass"  ".environment" "refClass"     "environment"  "refObject"

> http_status(GET(url, config(token = token)))$message
[1] "success: (200) OK"
> http_status(with_config(config(token = token), GET(url)))$message
[1] "client error: (401) Unauthorized"
Warnings
1: In mapCurlOptNames(names(.els), asNames = TRUE) :
  Unrecognized CURL options: token
2: In mapCurlOptNames(names(.els), asNames = TRUE) :
  Unrecognized CURL options: token

Same here with set_config.

``
regards,
Artem Klevtsov

[hadley]

Could you please provide a reproducible example?

[artemklevtsov]

For example get the list of google analytics accounts:

token <- oauth2.0_token(endpoint = oauth_endpoints("google"),
                        app = oauth_app(appname = "test-app", key = "my_key", secret = "my_secret"),
                        cache = FALSE, scope = "https://www.googleapis.com/auth/analytics.readonly")
url <- "https://www.googleapis.com/analytics/v3/management/accounts"
http_status(GET(url, config(token = token)))$message
http_status(with_config(config(token = token), GET(url)))$message

You can obtain key and secret here.