1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
### fitbitScraper 0.1.8
New changes:
* Added minutesSedentary data to 'get_daily_data'
* fixed bug in the column names in ‘get_daily_data’ for getTimeInHeartRateZonesPerDay
* if login returns a cookie that is character(0), throw error
This package scrapes data from fitbit.com
It only works if you use email / password to login. Not sure about facebook or google login.
Usage:
```R
install.packages("fitbitScraper")
library("fitbitScraper")
cookie <- login(email="corynissen@gmail.com", password="mypassword")
# 15_min_data "what" options: "steps", "distance", "floors", "active-minutes", "calories-burned"
df <- get_intraday_data(cookie, what="steps", date="2015-01-21")
library("ggplot2")
ggplot(df) + geom_bar(aes(x=time, y=data, fill=data), stat="identity") +
xlab("") +ylab("steps") +
theme(axis.ticks.x=element_blank(),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.minor.y = element_blank(),
panel.background=element_blank(),
panel.grid.major.y=element_line(colour="gray", size=.1),
legend.position="none")
# daily_data "what" options: "steps", "distance", "floors", "minutesVery", "caloriesBurnedVsIntake"
df <- get_daily_data(cookie, what="steps", start_date="2015-01-13", end_date="2015-01-20")
ggplot(df) + geom_point(aes(x=time, y=data))
```
|
