From f6a67d7ab2a87801c4cda9c1b83083bd3b0dfb5a Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Mon, 27 Nov 2023 17:10:49 -0600 Subject: [PATCH] changed time frame to include all of 1st day in week --- laundry_status.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/laundry_status.R b/laundry_status.R index 95cde7a..2b4e802 100755 --- a/laundry_status.R +++ b/laundry_status.R @@ -51,7 +51,10 @@ calculateTimeAgo <- function(eventTime) { update_data <- function(){ 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) values <- bind_rows(values) values <- values %>%