made script loop every 1 minutes

laundry_status.R

@@ -13,7 +13,7 @@ bucket = "home_assistant"
 home_assistant <- InfluxDBClient$new(url = "https://influxdb.dendroalsia.net",
                                      token = token,
                                      org = org)
-
+update_interval <- 5
 # ---- set variables
 entities <- data.frame(name = c("washing machine", "dryer"), entity_id = c("lamp_a_power", "lamp_b_power"))
 
@@ -62,5 +62,5 @@ update_data <- function(){
 
 for(i in 1:8640){
   update_data()
-  Sys.sleep(60)
+  Sys.sleep(60*update_interval)
 }

laundry_status.Rmd

@@ -4,6 +4,7 @@ output: html_document
 ---
 
 updated: `r format(Sys.time(), format = "%A %I:%M %p", tz = "America/Chicago")`
+this site updates every `r update_interval` minutes
 
 ## The washing machine is currently: `r current_status[["lamp_a_power"]]`