---
title: "Estado de la lavadería"
output:
    html_document:
    includes:
       in_header: favicon_header.html
---

Actualizado: `r format(Sys.time(), format = "%A a las %H:%M", tz = "America/Chicago")`

Este sitio se actualiza cada `r update_interval` minutos

In [English](https://laundry.dendroalsia.net/)

---

## la lavadora está `r current_status$washing_machine_power_es`


la lavadora `r ifelse(current_status$washing_machine_power=="on", "inició", "terminó")` su último ciclo `r ifelse(current_status$washing_machine_power=="on", strftime(last_change$washing_machine_power_off, format = "%A a las %H:%M", tz = "America/Chicago"), strftime(last_change$washing_machine_power_on, format = "%A a las %H:%M", tz = "America/Chicago"))`
: 
`r ifelse(current_status$washing_machine_power=="on", calculateTimeAgo_es(last_change$washing_machine_power_off), calculateTimeAgo_es(last_change$washing_machine_power_on))`

`r ifelse(current_status$washing_machine_power=="off", paste0("El puerto de la lavadora esta ", status_door$washing_machine_power_es), "")`

---

## La secadora está `r current_status$dryer_power_es`


La secadora `r ifelse(current_status$dryer_power=="on", "inició", "terminó")` su último ciclo `r ifelse(current_status$dryer_power=="on", strftime(last_change$dryer_power_off, format = "%A a las %H:%M", tz = "America/Chicago"), strftime(last_change$dryer_power_on, format = "%A a las %H:%M", tz = "America/Chicago"))`
: 
`r ifelse(current_status$dryer_power=="on", calculateTimeAgo_es(last_change$dryer_power_off), calculateTimeAgo_es(last_change$dryer_power_on))`

`r ifelse(current_status$dryer_power=="off", paste0("El puerto de la secadora esta ", status_door$dryer_power_es), "")`


---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
Este sitio hace un seguimiento de la lavadora y la secadora de nuestro edificio. Mi esperanza es que ayude a la gente a encontrar buenos momentos para hacer la colada.

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

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

---

## Para obtener datos a largo plazo, pulse [aquí](https://laundry.dendroalsia.net/longterm_data_es.html)

---



Si tiene algún problema o pregunta, envíe un correo electrónico a [ben@dendroalsia.net](mailto:ben@dendroalsia.net)

El código que escribí para generar este sitio web está disponible bajo la licencia GPLv3 aquí:  [https://git.dendroalsia.net/ben/laundry_status](https://git.dendroalsia.net/ben/laundry_status)
