From aaaa55186cb26dfac081310d0dc7b872ef60606a Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Tue, 7 Nov 2023 14:25:45 -0600 Subject: [PATCH] edited axis titles --- html/index.html | 10 +++++----- laundry_status.R | 14 ++++++++++---- 2 files changed, 15 insertions(+), 9 deletions(-) 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",