Fitness Data Exploration

Testing:

require(rCharts)
library(reshape2)
library(dplyr)
library(base64enc)

by.day <- readRDS('jbtr/health_data_by_day.rds')
grams <- melt(subset(by.day, Total.Computed.kcal > 0), id="Day", measure.vars=c("Saturated.Fat.g", "Polyunsaturated.Fat.g", "Other.Fat.g", "Sugar.g", "Protein.g", "Carbohydrates.g"))
grams <- grams %>% mutate(Day = as.integer(as.numeric(as.POSIXct(Day))))
p <- Rickshaw$new()
p$layer(x = "Day", y = "value", group="variable", data=grams, type = "area", width = 560)
# add a helpful slider this easily; other features TRUE as a default
p$set(slider = TRUE, scheme="munin")
p$show('iframesrc', cdn=TRUE)