47 lines
1.6 KiB
Plaintext
47 lines
1.6 KiB
Plaintext
---
|
|
title: "Laundry Status"
|
|
output:
|
|
html_document:
|
|
includes:
|
|
in_header: favicon_header.html
|
|
---
|
|
|
|
updated: `r format(Sys.time(), format = "%A %I:%M %p", tz = "America/Chicago")`
|
|
|
|
this site updates every `r update_interval` minutes
|
|
|
|
## The washing machine is currently: `r current_status[["washing_machine_power"]]`
|
|
|
|
|
|
The washer `r ifelse(current_status$washing_machine_power=="on", "started", "ended")` its most recent cycle at `r ifelse(current_status$washing_machine_power=="on", strftime(washer_last_off, format = "%A %I:%M %p", tz = "America/Chicago"), strftime(washer_last_on, format = "%A %I:%M %p", tz = "America/Chicago"))`
|
|
:
|
|
`r ifelse(current_status$washing_machine_power=="on", calculateTimeAgo(washer_last_off), calculateTimeAgo(washer_last_on))`
|
|
|
|
## The dryer is currently: `r current_status[["dryer_power"]]`
|
|
|
|
|
|
The dryer `r ifelse(current_status$dryer_power=="on", "started", "ended")` its most recent cycle at `r ifelse(current_status$dryer_power=="on", strftime(dryer_last_off, format = "%A %I:%M %p", tz = "America/Chicago"), strftime(dryer_last_on, format = "%A %I:%M %p", tz = "America/Chicago"))`
|
|
:
|
|
`r ifelse(current_status$dryer_power=="on", calculateTimeAgo(dryer_last_off), calculateTimeAgo(dryer_last_on))`
|
|
|
|
|
|
---
|
|
```{r setup, include=FALSE}
|
|
knitr::opts_chunk$set(echo = TRUE)
|
|
```
|
|
This site tracks the washing machine and dryer of our building. My hope is that it helps people find good times to do laundry.
|
|
|
|
```{r plot_1day, echo=FALSE}
|
|
plot(plot_1day)
|
|
```
|
|
|
|
```{r plot_1week, echo=FALSE}
|
|
plot(plot_1week)
|
|
```
|
|
|
|
```{r plot_1week_days, echo=FALSE}
|
|
plot(plot_1week_days)
|
|
```
|
|
|
|
If you have any issues or questions, please email `ben@dendroalsia.net`
|