Autenticazione Oauth su Fitbit tramite httr

Question

Sto provando a connettermi all'API fitbit utilizzando httr library.

Utilizzando gli esempi forniti, mi si avvicinò con il seguente codice:

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 
) 

ho la autenticazione completa. messaggio da HTTR, ma cercando di accedere alle API quindi genera un messaggio di errore

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>'"}]} 

Qualsiasi indizio su ciò che il problema potrebbe essere?

Answer 1

Il problema deriva dalla libreria httr, che utilizza curlEscape per la codifica dei parametri mentre le specifiche di OAuth 1.0 richiedono la codifica percentuale (vedere this page).

Sostituire le chiamate a curlEscape con curlPercentEncode risolve il problema!

molte grazie a @ mark-s per il suo aiuto.

Answer 2

L'unica cosa che noto è che la tua chiamata per ottenere la firma è leggermente diversa rispetto agli esempi di httr. Gli esempi sono HTTR:

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

Mentre il codice è:

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

Avete bisogno del "gettone =" e "token_secret =" nel codice?