--- 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[["lamp_a_power"]]` The washer `r ifelse(current_status$lamp_a_power=="on", "started", "ended")` its most recent cycle at `r ifelse(current_status$lamp_a_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$lamp_a_power=="on", round(difftime(Sys.time(), washer_last_off, unit = "mins"),0), round(difftime(Sys.time(), washer_last_on, units = "mins"),0))` minutes ago ## The dryer is currently: `r current_status[["lamp_b_power"]]` The dryer `r ifelse(current_status$lamp_b_power=="on", "started", "ended")` its most recent cycle at `r ifelse(current_status$lamp_b_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$lamp_b_power=="on", round(difftime(Sys.time(), dryer_last_off, unit = "mins"),0), round(difftime(Sys.time(), dryer_last_on, units = "mins"),0))` minutes ago --- ```{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) ``` If you have any issues or questions, please email `admin@dendroalsia.net`