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

how to prompt save As Box in Excel Interlop c# MVC 4 -

i want export excel sheet using excel interloop... i have datatable convert excel sheet... now there way save file using save dialogue box in mvc 4 here code public string datatabletoexcel(datatable dt, string htmlheading, string key) { try { microsoft.office.interop.excel.application excel; microsoft.office.interop.excel.workbook excelworkbook; microsoft.office.interop.excel.worksheet excelsheet; microsoft.office.interop.excel.range excelcellrange; excel = new microsoft.office.interop.excel.application(); excel.visible = false; excel.displayalerts = false; excelworkbook = excel.workbooks.add(type.missing); excelsheet = (microsoft.office.interop.excel.worksheet)excelworkbook.activesheet; excelsheet.name = "sheet1"; dataset ...
Read more

xslt 1.0 - How to access or retrieve mets content of an item from another item? -

my use case have item has link in item. example, item 123456789/152 has metadata field dc.relation.hasversion=123456789/717 . within item view of 123456789/152 , how can retrieve values of metadata of 123456789/717 ? example, want retrieve dc.language.iso value of 123456789/717 123456789/152 . i looked @ related items feature in dspace don't know how metadata displayed in related items list pulled items in list. i using dspace version 5.3 mirage 2 theme . edit based on schweerelos answer, below actual code. using custom metadata field dc.relation.languageversion . basically, want link other version instead of displaying value, display dc.language.iso of other version in item-view.xsl . i've incorporated answer of schweerelos question in code just displaying value of dc.relation.languageversion . sample values of dc.relation.languageversion 10665.1/9843 ; 10665.1/9844 ie not complete uri handle. thanks in advance! actual code <xsl:template name=...
Read more