63 lines
2.5 KiB
Plaintext
63 lines
2.5 KiB
Plaintext
---
|
|
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 momentos en los que la lavadora esté libre.
|
|
|
|
```{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)
|