diff --git a/html/index.html b/html/index.html
index 6b83fd1..6aed36e 100644
--- a/html/index.html
+++ b/html/index.html
@@ -353,14 +353,14 @@ display: none;
-updated: Tuesday 01:57 PM
+updated: Tuesday 02:25 PM
this site updates every 5 minutes
The washing machine is currently: off
- The washer ended its most recent cycle at Tuesday 08:05 AM
-
-353 minutes ago
+380 minutes ago
@@ -369,14 +369,14 @@ display: none;
- The dryer ended its most recent cycle at Tuesday 08:06 AM
-
-352 minutes ago
+379 minutes ago
This site tracks the washing machine and dryer of our building. My
hope is that it helps people find good times to do laundry.
-
-
+
+
If you have any issues or questions, please email
admin@dendroalsia.net
diff --git a/laundry_status.R b/laundry_status.R
index 9a03f20..28219de 100644
--- a/laundry_status.R
+++ b/laundry_status.R
@@ -65,18 +65,24 @@ update_data <- function(){
scale_y_discrete(breaks = entities$entity_id, labels = entities$name) +
scale_x_datetime(date_breaks = "24 hours", date_labels = '%A', date_minor_breaks = "6 hours") +
theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
- labs(title = "The past week")
+ labs(title = "The past week",
+ x = NULL,
+ y = NULL,
+ fill = NULL)
- plot_1day <- ggplot(data = values %>% filter(time >= max(values$time) - hours(24))) +
+ plot_1day <- ggplot(data = values %>% filter(time >= max(values$end_time) - hours(24))) +
geom_tile(aes(x = time + seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))/2),
y = entity_id,
width = seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))),
height = 0.5,
fill = status)) +
scale_y_discrete(breaks = entities$entity_id, labels = entities$name) +
- scale_x_datetime(breaks = seq(round_date(max(values$time), "4 hours") - hours(24), round_date(max(values$time), "4 hours"), by = "4 hours"), date_labels = '%I:%M %p', date_minor_breaks = "1 hours") +
+ scale_x_datetime(breaks = seq(round_date(max(values$end_time), "4 hours") - hours(24), round_date(max(values$end_time), "4 hours"), by = "4 hours"), date_labels = '%I:%M %p', date_minor_breaks = "1 hours") +
theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
- labs(title = "Last 24 hours")
+ labs(title = "Last 24 hours",
+ x = NULL,
+ y = NULL,
+ fill = NULL)
render("laundry_status.Rmd",
output_dir = "html",