---
title: "Laundry Status"
output: html_document
---

updated: `r format(Sys.time(), format = "%A %I:%M %p", tz = "America/Chicago")`

## The washing machine is currently: `r current_status[["lamp_a_power"]]`

## The dryer is currently: `r current_status[["lamp_b_power"]]`

--------
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
This site tracks the washing machine and dryer of our building. It is just a suggestion of when the machines might be free, not a guarantee.

```{r plot_1day, echo=FALSE}
plot(plot_1day)
```

```{r plot_1week, echo=FALSE}
plot(plot_1week)
```

If you have any issues or questions, please email `admin@dendroalsia.net`