ben/laundry_status
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed time frame to include all of 1st day in week

Browse Source
This commit is contained in:
Ben Varick 2023-11-27 17:10:49 -06:00
parent ffd956b2f7
commit f6a67d7ab2
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
laundry_status.R
View File

@ -51,7 +51,10 @@ calculateTimeAgo <- function(eventTime) {
update_data <- function(){ update_data <- function(){
run_time <- Sys.time() run_time <- Sys.time()
values <- home_assistant$query('from(bucket: "home_assistant") |> range(start: -7d) |> filter(fn: (r) => r["entity_id"] == "washing_machine_power" or r["entity_id"] == "dryer_power") |> filter(fn: (r) => r["_field"] == "value") |> filter(fn: (r) => r["_measurement"] == "W")', start_time <- floor_date(run_time - ddays(7), unit = "days")
values <- home_assistant$query(paste0('from(bucket: "home_assistant") |> range(start: ',
start_time,
') |> filter(fn: (r) => r["entity_id"] == "washing_machine_power" or r["entity_id"] == "dryer_power") |> filter(fn: (r) => r["_field"] == "value") |> filter(fn: (r) => r["_measurement"] == "W")'),
POSIXctCol = NULL) POSIXctCol = NULL)
values <- bind_rows(values) values <- bind_rows(values)
values <- values %>% values <- values %>%