removed week chart

laundry_status.R

@@ -108,21 +108,6 @@ update_data <- function(){
          y = NULL,
          fill = NULL)
   
-  plot_1week <- ggplot(data = values) +
-    geom_tile(aes(x = time + seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))/2),
-                  y = entity_id,
-                  width = seconds(round(as.numeric(difftime(end_time, time, unit = "secs")))),
-                  height = 0.5,
-                  fill = status)) +
-    scale_y_discrete(breaks = entities$entity_id, labels = entities$name) +
-    scale_x_datetime(date_breaks = "1 day", date_labels = '%A', date_minor_breaks = "4 hours") +
-    scale_fill_manual(values = colors$color) +
-    theme(axis.text.x = element_text(angle = 30, vjust = 0.5)) +
-    labs(title = "The past week",
-         x = NULL,
-         y = NULL,
-         fill = NULL)
-  
   plot_1week_days <- ggplot(data = values %>% 
                               filter(as.Date(time, tz = "America/Chicago") == as.Date(end_time, tz = "America/Chicago")) %>%
                               mutate(date = as.Date(time, tz = "America/Chicago")) %>%

laundry_status.Rmd

@@ -43,10 +43,6 @@ This site tracks the washing machine and dryer of our building. My hope is that
 plot(plot_1day)
 ```
 
-```{r plot_1week, echo=FALSE}
-plot(plot_1week)
-```
-
 ```{r plot_1week_days, echo=FALSE}
 plot(plot_1week_days)
 ```