googlesheets::gs_auth()
gsTracking <- googlesheets::gs_url("https://docs.google.com/spreadsheets/d/1SC2biNkenlsD-yMPD_HfiBrPiVo5OKDGH9PbaS5g3Rg/edit#gid=0")
tracking <- googlesheets::gs_read(gsTracking)
test <- t(tracking)
test <- test[-2, ]
dt <- test %>% rownames %>% .[-1]
nm <- test[1, ]
tracking_df <- test[-1, ] %>% as.data.frame()
names(tracking_df) <- nm
tracking_df$Date <- rownames(tracking_df) %>% lubridate::mdy_hms()
tracking_df[, !names(tracking_df) == "Date"] %<>% mutate_if(.predicate = !names(tracking_df[, 
    !names(tracking_df) == "Date"]) %>% str_detect("^Meal"), .funs = "as.numeric")
tracking_df %<>% dplyr::select(Date, "Meal 1", "Meal 2", "Meal 3", everything())
tracking_df %<>% mutate_if(.predicate = names(tracking_df) %>% str_detect("^Meal"), 
    .funs = function(x) {
        lubridate::hm(x)
    })
numcols <- 5:length(tracking_df)
daysummary <- data.frame(matrix(rep(NA, 7 * 3), ncol = 7))
daysummary[1, ] <- tracking_df[, numcols] %>% rowSums
daysummary[2, ] <- tracking_df[, numcols] %>% rowMeans
daysummary[3, ] <- tracking_df[, numcols] %>% t %>% as.data.frame %>% sapply(sd)
rownames(daysummary) <- c("Sums", "Average", "SD")
colnames(daysummary) <- tracking_df$Date %>% as.character()
htmltools::tags$p("The overall summary statistics for each day, a distillation of mood score stats:")

The overall summary statistics for each day, a distillation of mood score stats:

daysummary
varsummary <- data.frame(matrix(rep(NA, 18 * 3), ncol = 18))
varsummary[1, ] <- tracking_df[, numcols] %>% colSums
varsummary[2, ] <- tracking_df[, numcols] %>% colMeans
varsummary[3, ] <- tracking_df[, numcols] %>% sapply(sd)
rownames(varsummary) <- c("Sums", "Average", "SD")
names(varsummary) <- tracking_df[, numcols] %>% names
htmltools::tags$p("The overall summary stats for each variable:")

The overall summary stats for each variable:

varsummary
names(tracking_df[, numcols])
tracking_df

Timeseries graph of Mood