diff --git a/R/get_sleep_data.R b/R/get_sleep_data.R index e19cb1a..eff7375 100644 --- a/R/get_sleep_data.R +++ b/R/get_sleep_data.R @@ -46,10 +46,10 @@ get_sleep_data <- function(cookie, start_date="2015-01-13", end_date="2015-01-20 startTime = sapply(dat_list$entries, "[[", "startTime"), endTime = sapply(dat_list$entries, "[[", "endTime"), sleepDuration = sapply(dat_list$entries, "[[", "sleepDuration"), - awokenCount = sapply(dat_list$entries, "[[", "awokenCount"), + awakeCount = sapply(dat_list$entries, "[[", "awakeCount"), restlessCount = sapply(dat_list$entries, "[[", "restlessCount"), - awakeTime = sapply(dat_list$entries, "[[", "awakeTime"), - restlessTime = sapply(dat_list$entries, "[[", "restlessTime"), + awakeDuration = sapply(dat_list$entries, "[[", "awakeDuration"), + restlessDuration = sapply(dat_list$entries, "[[", "restlessDuration"), minAsleep = sapply(dat_list$entries, "[[", "minAsleep"), sleepQualityScoreB = sapply(dat_list$entries, "[[", "sleepQualityScoreB"), sleepQualityScoreA = sapply(dat_list$entries, "[[", "sleepQualityScoreA")),