Accessing FitBit API via R (no web scraping) -


does have working r script access api? see there webscraping package, i'd prefer use official api if possible.

everything i've got , research i've done authenticate via oauth 1 or 2 seems broken using httr package.

for oauth 2:

library(httr) app = '<oauth 2.0 client id>' key <- '<client (consumer) key>' secret <- '<client (consumer) secret>' accesstokenurl <- 'https://api.fitbit.com/oauth2/token' authorizeurl <- 'https://www.fitbit.com/oauth2/authorize'  fbr <- oauth_app(key,app,null) fitbit <- oauth_endpoint(null, authorizeurl,accesstokenurl) token <- oauth2.0_token(fitbit,fbr,scope='profile',as_header=true, cache=false)

when check token$credentials error message:

$errors $errors[[1]] $errors[[1]]$errortype [1] "oauth"  $errors[[1]]$fieldname [1] "n/a"  $errors[[1]]$message [1] "no authorization header provided in request. each call fitbit api should oauth signed"    $success [1] false

i have tried misc settings in fitbit setting app, both server , client, , have callback url correctly set http://localhost:1410

any ideas?

thanks, isaac

ps: i've crossposted on fitbit's forums: https://twitter.com/isaacwyatt/status/637768649290350592 , tweeted @ hadley wickham help. retweets welcome!

current session info: r version 3.1.2 (2014-10-31) platform: x86_64-apple-darwin13.4.0 (64-bit)  locale: [1] en_us.utf-8/en_us.utf-8/en_us.utf-8/c/en_us.utf-8/en_us.utf-8  attached base packages: [1] stats     graphics  grdevices utils     datasets  methods   base       other attached packages: [1] httr_1.0.0  loaded via namespace (and not attached): [1] curl_0.9.3      httpuv_1.3.2    jsonlite_0.9.14 r6_2.0.1        rcpp_0.11.4     stringr_0.6.2   [7] tools_3.1.2

fitbit's api access via oauth1.0a deprecated 2016-03-14, here working script using oauth2.0. there issue httr package not being able request token using http basic authentication (required fitbit), fixed new use_basic_auth argument oauth2.0_token().

fitbit application settings

example

# until version *following* httr 1.0.0 available on cran, # development version uncommenting following 2 lines # library(devtools) # install_github("hadley/httr") library(httr)  # 1. set credentials fitbit_endpoint <- oauth_endpoint(   request = "https://api.fitbit.com/oauth2/token",   authorize = "https://www.fitbit.com/oauth2/authorize",   access = "https://api.fitbit.com/oauth2/token") myapp <- oauth_app(   appname = "data_access",   key = "your oauth 2.0 client id",    secret = "your client (consumer) secret")  # 2. oauth token scope <- c("sleep","activity")  # see dev.fitbit.com/docs/oauth2/#scope fitbit_token <- oauth2.0_token(fitbit_endpoint, myapp,   scope = scope, use_basic_auth = true)  # 3. make api requests resp <- get(url = "https://api.fitbit.com/1/user/-/sleep/date/2015-10-10.json",    config(token = fitbit_token)) content(resp)

-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more