httt를 사용하여 Fitbit에 Oauth 인증

Question

httr library을 사용하여 fitbit API에 연결하려고합니다. 제공된 예를 사용

, 다음 코드를 내놓았다 :

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 
) 

내가 인증이 완료 얻을. HTTR에서 메시지,하지만 API에 액세스하려고하면 오류 메시지가

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

에게 문제가 무엇인지에 대한 단서를 던져?

Answer 1

OAuth 1.0 사양에 퍼센트 인코딩이 필요한 반면 (curlEscape를 사용하여 매개 변수를 인코딩하는) httr 라이브러리에서 문제가 발생합니다 (this page 참조).

curlEscape로 통화를 바꾸면 curlPercentEncode가 문제를 해결합니다!

많은 도움을 주신 @ mark-s에게 감사드립니다.

Answer 2

유일한주의 사항은 서명을 얻으려는 호출이 httr 예제와 약간 다릅니다. HTTR의 예는 다음과 같습니다 코드가

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

동안 :

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

는 당신이 필요합니까 "토큰 ="및 "token_secret ="을 코드에서?