RとJeffGentryによるROAuthパッケージを使用してfitbitからデータをプルしようとすると、認証が機能しないようです。次のようにコーディングします。
apiURL = 'api.fitbit.com/'
credentials = OAuthFactory$new(consumerKey=key,
consumerSecret=secret,
requestURL=tokenURL,
accessURL=accessTokenURL,
authURL=authorizeURL
)
次に、ハンドシェイクを実行します。
> credentials$handshake()
To enable the connection, please direct your web browser to:
http://www.fitbit.com/oauth/authorize?oauth_token=036afa88a832bfffc72af485e38c1572
When complete, record the PIN given to you and provide it here:
承認を完了し、oauth_verifierトークンを貼り付けて、適切に見える資格情報のセットを作成します。
最後に、私が求めているプロファイルデータを取得しようとします。
rawToChar(credentials$OAuthRequest(paste(apiURL,"1/user/userID/profile.json", sep="", collapse=''), "GET"))
そして、私はこれに応えてこれを受け取ります:
[1] "{\"errors\":[{\"errorType\":\"oauth\",\"fieldName\":\"n/a\",\"message\":\"No
Authorization header provided in the request. Each call to Fitbit API should be OAuth
signed\"}]}"