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:50:59 -06:00
parent 676d60be17
commit 656b626600
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
laundry_longterm_data_es.Rmd
View File

@ -6,7 +6,7 @@ output:
in_header: favicon_header.html in_header: favicon_header.html
--- ---
Actualizado: `r format(Sys.time(), format = "%A %I:%M %p", tz = "America/Chicago")` Actualizado: `r format(Sys.time(), format = "%d de %B de %Y", tz = "America/Chicago")`
Este sitio se actualiza cada día Este sitio se actualiza cada día

11
laundry_status.R
View File

@ -180,10 +180,11 @@ update_data <- function(){
fill = NULL) fill = NULL)
plot_1week_days_es <- ggplot(data = values %>% plot_1week_days_es <- ggplot(data = values %>%
filter(as.Date(time, tz = "America/Chicago") == as.Date(end_time, tz = "America/Chicago")) %>% filter(as.Date(time, tz = "America/Chicago") == as.Date(end_time, tz = "America/Chicago")) %>%
mutate(date = as.Date(time, tz = "America/Chicago")) %>% mutate(date = as.Date(time, tz = "America/Chicago")) %>%
left_join(. , entities, by = join_by(entity_id)) %>% left_join(. , entities, by = join_by(entity_id)) %>%
mutate(name = factor(name_es, levels = c("lavadora", "secadora")))) + mutate(name = factor(name_es, levels = c("lavadora", "secadora"))) %>%
mutate(status = ifelse(status == "on", "encendida", "apagada"))) +
geom_rect(aes(xmin = date - hours(8), geom_rect(aes(xmin = date - hours(8),
xmax = date + hours(8), xmax = date + hours(8),
ymin = ymd_hms(paste("2023-01-01", strftime(time, format = "%H:%M:%S"))), ymin = ymd_hms(paste("2023-01-01", strftime(time, format = "%H:%M:%S"))),
@ -289,7 +290,7 @@ update_longterm_data <- function(){
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 desde ",strftime(min(values$time), format = "%d de %B de %Y"), " hasta ", strftime(run_time, format = "%d de %B de %Y")), subtitle = paste0("datos desde el ",strftime(min(values$time), format = "%d de %B de %Y"), " hasta el ", 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")

2
laundry_status_es.Rmd
View File

@ -6,7 +6,7 @@ output:
in_header: favicon_header.html in_header: favicon_header.html
--- ---
Actualizado: `r format(Sys.time(), format = "%A %I:%M %p", tz = "America/Chicago")` Actualizado: `r format(Sys.time(), format = "%A a las %H:%M", tz = "America/Chicago")`
Este sitio se actualiza cada `r update_interval` minutos Este sitio se actualiza cada `r update_interval` minutos