From 743f3d8d5975b0673ab46604a8d3bb71d5028ee7 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Tue, 28 Nov 2023 07:51:21 -0600 Subject: [PATCH] changed start tz of time frame --- laundry_status.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/laundry_status.R b/laundry_status.R index 2b4e802..9bfe5e9 100755 --- a/laundry_status.R +++ b/laundry_status.R @@ -65,7 +65,8 @@ update_data <- function(){ time = as.POSIXct(time, tz = "America/Chicago"), status = ifelse(value > power_threshold_on, "on", "off")) %>% mutate(door_threshold = ifelse(entity_id == "washing_machine_power", power_threshold_wash_door, power_threshold_dry_door)) %>% - mutate(door = ifelse(value < door_threshold, "open", "closed")) + mutate(door = ifelse(value < door_threshold, "open", "closed")) %>% + filter(time >= start_time) values_by_entity <- as.list(NULL) for(entity in entities$entity_id) {