ben/laundry_status
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

edited spanish translations

Browse Source
This commit is contained in:
Ben Varick 2024-01-28 14:43:00 -06:00
parent eadd99c4cb
commit 676d60be17
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
laundry_longterm_data_es.Rmd
View File

@ -1,5 +1,5 @@
--- ---
title: "Datos a Largo Plazo" title: "Datos a largo plazo"
output: output:
html_document: html_document:
includes: includes:

10
laundry_status.R
View File

@ -171,7 +171,7 @@ update_data <- function(){
height = 0.5, height = 0.5,
fill = status)) + fill = status)) +
scale_y_discrete(breaks = entities$entity_id, labels = entities$name_es) + scale_y_discrete(breaks = entities$entity_id, labels = entities$name_es) +
scale_x_datetime(breaks = seq(round_date(max(values$end_time), "4 hours") - hours(24), round_date(max(values$end_time), "4 hours"), by = "4 hours"), date_labels = '%I:%M %p', date_minor_breaks = "1 hours") + scale_x_datetime(breaks = seq(round_date(max(values$end_time), "4 hours") - hours(24), round_date(max(values$end_time), "4 hours"), by = "4 hours"), date_labels = '%H:%M', date_minor_breaks = "1 hours") +
scale_fill_manual(values = colors$color) + scale_fill_manual(values = colors$color) +
theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) + theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
labs(title = "Hace 24 horas", labs(title = "Hace 24 horas",
@ -190,12 +190,12 @@ update_data <- function(){
ymax = ymd_hms(paste("2023-01-01", strftime(end_time, format = "%H:%M:%S"))), ymax = ymd_hms(paste("2023-01-01", strftime(end_time, format = "%H:%M:%S"))),
fill = status)) + fill = status)) +
facet_grid(name ~ .) + facet_grid(name ~ .) +
scale_y_datetime(date_breaks = "4 hours", date_labels = '%I:%M %p', minor_breaks = "2 hours", expand = expansion(mult = 0)) + scale_y_datetime(date_breaks = "4 hours", date_labels = '%H:%M', minor_breaks = "2 hours", expand = expansion(mult = 0)) +
scale_x_datetime(date_breaks = "1 day", date_labels = '%A', minor_breaks = NULL) + scale_x_datetime(date_breaks = "1 day", date_labels = '%A', minor_breaks = NULL) +
scale_fill_manual(values = colors$color) + scale_fill_manual(values = colors$color) +
theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) + theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
labs(title = "La semana pasada", labs(title = "La semana pasada",
x = "Dia", x = "Día",
y = "Tiempo", y = "Tiempo",
fill = NULL) fill = NULL)
@ -284,12 +284,12 @@ update_longterm_data <- function(){
alpha = count, alpha = count,
fill = status)) + fill = status)) +
facet_grid(name ~ .) + facet_grid(name ~ .) +
scale_y_datetime(date_breaks = "4 hours", date_labels = '%I:%M %p', minor_breaks = "2 hours", expand = expansion(mult = 0)) + scale_y_datetime(date_breaks = "4 hours", date_labels = '%H:%M', minor_breaks = "2 hours", expand = expansion(mult = 0)) +
scale_x_discrete() + scale_x_discrete() +
scale_fill_manual(values = colors$color[2], guide = NULL) + scale_fill_manual(values = colors$color[2], guide = NULL) +
theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) + theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
labs(title = "Tendencias a largo plazo", labs(title = "Tendencias a largo plazo",
subtitle = paste0("datos del ",strftime(min(values$time), format = "%B %d, %Y"), " al ", strftime(run_time, format = "%B %d, %Y")), subtitle = paste0("datos desde ",strftime(min(values$time), format = "%d de %B de %Y"), " hasta ", strftime(run_time, format = "%d de %B de %Y")),
x = "Día de la semana", x = "Día de la semana",
y = "Tiempo", y = "Tiempo",
alpha = "Frecuencia") alpha = "Frecuencia")

4
laundry_status_es.Rmd
View File

@ -17,7 +17,7 @@ In [English](https://laundry.dendroalsia.net/)
## la lavadora está `r current_status$washing_machine_power_es` ## 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 a las `r ifelse(current_status$washing_machine_power=="on", strftime(last_change$washing_machine_power_off, format = "%A %I:%M %p", tz = "America/Chicago"), strftime(last_change$washing_machine_power_on, format = "%A %I:%M %p", tz = "America/Chicago"))` 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=="on", calculateTimeAgo_es(last_change$washing_machine_power_off), calculateTimeAgo_es(last_change$washing_machine_power_on))`
@ -28,7 +28,7 @@ la lavadora `r ifelse(current_status$washing_machine_power=="on", "inició", "te
## La secadora está `r current_status$dryer_power_es` ## La secadora está `r current_status$dryer_power_es`
The dryer `r ifelse(current_status$dryer_power=="on", "inició", "terminó")` su último ciclo a las `r ifelse(current_status$dryer_power=="on", strftime(last_change$dryer_power_off, format = "%A %I:%M %p", tz = "America/Chicago"), strftime(last_change$dryer_power_on, format = "%A %I:%M %p", tz = "America/Chicago"))` 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=="on", calculateTimeAgo_es(last_change$dryer_power_off), calculateTimeAgo_es(last_change$dryer_power_on))`