Last three days heartrate.ipynb
A simple test of the Open Humans Apple Health download app. This is an R notebook that will plot the last three days of my heart rate and resting heart rate.
library(dplyr)
library(lubridate)
library(ggplot2)
hr <- readr::read_csv("https://open-humans-production.s3.amazonaws.com/member-files/direct-sharing-453/f883101a-95fa-11ea-abe6-8ec31bf08898/heartrate_samples1589471572564.csv?AWSAccessKeyId=AKIAIKNTFUJJTNS6N7HA&Signature=4IENSET93GSL2E%2BdhH9FCBb5VNo%3D&Expires=1589475383", col_names=c("hr","date","type"))
ggplot(data=hr %>% dplyr::filter(date>today()-days(3)),aes(x=date,y=hr,color=type)) + geom_line()