Oauth Authentifizierung zu Fitbit mit HTR

Question

Ich versuche, die fitbit api mit der httr library verbinden.

die Beispiele Verwendung zur Verfügung gestellt, kam ich mit dem folgenden Code auf:

library(httr) 

key <- '<edited>' 
secret <- '<edited>' 
tokenURL <- 'http://api.fitbit.com/oauth/request_token' 
accessTokenURL <- 'http://api.fitbit.com/oauth/access_token' 
authorizeURL <- 'https://www.fitbit.com/oauth/authorize' 

fbr <- oauth_app('fitbitR',key,secret) 
fitbit <- oauth_endpoint(tokenURL,authorizeURL,accessTokenURL) 

token <- oauth1.0_token(fitbit,fbr) 
sig <- sign_oauth1.0(fbr, 
    token=token$oauth_token, 
    token_secret=token$oauth_token_secret 
) 

ich die Authentifizierung vollständig erhalten. Nachricht von HTTR, aber die api dann zuzugreifen versuchen, wirft eine Fehlermeldung

GET("http://api.fitbit.com/1/user/-/activities/date/2012-08-29.json", sig) 
Response [http://api.fitbit.com/1/user/-/activities/date/2012-08-29.json] 
    Status: 401 
    Content-type: application/x-www-form-urlencoded;charset=UTF-8 
{"errors":[{"errorType":"oauth","fieldName":"oauth_access_token","message":"Invalid signature or token '<edited>' or token '<edited>'"}]} 

keine Ahnung, was das Problem sein könnte?

Answer 1

Das Problem kommt von der HTTR Bibliothek, die für die Codierung curlEscape paramaters verwendet, während die OAuth 1.0 Spezifikationen Prozent Codierung erfordert (siehe this page).

Ersetzen von Aufrufen von curlEscape mit curlPercentEncode löst das Problem!

vielen dank @ mark-s für seine hilfe.

Answer 2

Das einzige, was ich bemerke, ist, dass Ihr Aufruf, die Signatur zu bekommen, etwas anders ist als die HTT-Beispiele. Die HTTR Beispiele sind:

sig <- sign_oauth1.0(myapp, token$oauth_token, token$oauth_token_secret) 

Während Ihr Code:

sig <- sign_oauth1.0(fbr, 
    token=token$oauth_token, 
    token_secret=token$oauth_token_secret 
) 

Benötigen Sie die "token =" und "token_secret =" im Code?