Merge pull request #7 from stijnmasschelein/calories

calories burned vs intake
corynissen · Feb 23, 2016 · 787357f · 787357f
2 parents f083616 + 946eba5
commit 787357f
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/get_daily_data.R b/R/get_daily_data.R
@@ -87,6 +87,13 @@ get_daily_data <- function(cookie, what="steps", start_date, end_date){
                      data=as.numeric(unlist(sapply(dat_list$dataPoints, "[", "value"))),
                      stringsAsFactors=F)
     names(df) <- c("time", what)
+  }else if(what=="caloriesBurnedVsIntake"){
+    burned_list <- dat_list[[1]]$dataSets$activity$dataPoints
+    intake_list <- dat_list[[1]]$dataSets$caloriesIntake$dataPoints
+    df <- data.frame(time=as.character(unlist(sapply(burned_list, "[", "dateTime"))),
+                     caloriesBurned=as.numeric(unlist(sapply(burned_list, "[", 2))),
+                     coloriesIntake=as.numeric(unlist(sapply(intake_list, "[", 2))),
+                     stringsAsFactors=F)
   }else{
     dat_list <- dat_list[[1]]$dataSets$activity$dataPoints
     df <- data.frame(time=as.character(unlist(sapply(dat_list, "[", "dateTime"))),