From 946eba55268779bd2ab3f94dc81ccc2e93edada9 Mon Sep 17 00:00:00 2001 From: Stijn Masschelein Date: Wed, 3 Feb 2016 12:34:03 +0800 Subject: [PATCH] calories burned vs intake MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The “caloriesBurnedVsIntake” argument in get_daily_data only returns the burned calories. (Maybe fitbit changed something?). I changed the function to return both caloriesBurned and caloriesIntake. I am not sure if this is how you want to do it or if you want to split the dataframe into two seperate dataframes. --- R/get_daily_data.R | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/R/get_daily_data.R b/R/get_daily_data.R index d3a85eb..ca90b73 100644 --- 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"))),