From 14cafe976b2f5378968291de37fa81e440081c7c Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Mon, 20 Nov 2023 10:05:57 -0600 Subject: [PATCH] changed entities to real washing machine and dryer names --- laundry_status.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/laundry_status.R b/laundry_status.R index 24bc16d..b7b62cc 100755 --- a/laundry_status.R +++ b/laundry_status.R @@ -21,12 +21,12 @@ update_interval <- 5 cronjob_interval <- 60 power_threshhold <- 5 # ---- set variables -entities <- data.frame(name = c("washing machine", "dryer"), entity_id = c("lamp_a_power", "lamp_b_power")) +entities <- data.frame(name = c("washing machine", "dryer"), entity_id = c("washing_machine_power", "dryer_power")) update_data <- function(){ run_time <- Sys.time() - values <- home_assistant$query('from(bucket: "home_assistant") |> range(start: -7d) |> filter(fn: (r) => r["entity_id"] == "lamp_b_power" or r["entity_id"] == "lamp_a_power") |> filter(fn: (r) => r["_field"] == "value") |> filter(fn: (r) => r["_measurement"] == "W")', + 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")', POSIXctCol = NULL) values <- bind_rows(values) values <- values %>%