add ratings image back to code.

pbulsink · pbulsink · commit 004c22bc8340 · 2026-01-27T20:34:25.000-05:00
diff --git a/R/main.R b/R/main.R
@@ -204,7 +204,6 @@ dailySummary <- function(graphic_dir = "./prediction_results/graphics", subdir =
       )
     )
 
-
     # rtoot::post_toot(
     #   status = "Predicted odds for today's #NHL games.",
     #   media = file.path(graphic_dir, "today_odds.png"),
@@ -218,6 +217,14 @@ dailySummary <- function(graphic_dir = "./prediction_results/graphics", subdir =
       )
     )
 
+    rating <- ratings(params$m)
+    # save to files.
+    grDevices::png(filename = file.path(graphic_dir, "current_rating.png"), width = 11, height = 8.5, units = "in", res = 300)
+    print(rating)
+    Sys.sleep(5)
+    while (grDevices::dev.cur() != 1) {
+      grDevices::dev.off()
+    }
 
     # rtoot::post_toot(
     #   status = paste0("Current team ratings (as of ", Sys.Date(), ")."),

Original file line number	Diff line number	Diff line change
`@@ -204,7 +204,6 @@ dailySummary <- function(graphic_dir = "./prediction_results/graphics", subdir =`
`204`	`204`	`)`
`205`	`205`	`)`
`206`	`206`
`207`		`-`
`208`	`207`	`# rtoot::post_toot(`
`209`	`208`	`# status = "Predicted odds for today's #NHL games.",`
`210`	`209`	`# media = file.path(graphic_dir, "today_odds.png"),`
`@@ -218,6 +217,14 @@ dailySummary <- function(graphic_dir = "./prediction_results/graphics", subdir =`
`218`	`217`	`)`
`219`	`218`	`)`
`220`	`219`
	`220`	`+ rating <- ratings(params$m)`
	`221`	`+ # save to files.`
	`222`	`+ grDevices::png(filename = file.path(graphic_dir, "current_rating.png"), width = 11, height = 8.5, units = "in", res = 300)`
	`223`	`+ print(rating)`
	`224`	`+ Sys.sleep(5)`
	`225`	`+ while (grDevices::dev.cur() != 1) {`
	`226`	`+ grDevices::dev.off()`
	`227`	`+ }`
`221`	`228`
`222`	`229`	`# rtoot::post_toot(`
`223`	`230`	`# status = paste0("Current team ratings (as of ", Sys.Date(), ")."),`