R/main.R

In pbulsink/HockeyModel: NHL Hockey Model for 2018-2019

# Hosts main functions
# Calls to data and prediction calculations, produce figures & tables

#' Update Model
#' @description updates the schedule, scores, and model parameters (m, rho, theta, gamma). Returns them in a list of named values
#'
#' @param save_data whether to save data to the package file
#'
#' @return a list of scores, schedule, and param named list
#'
#' @export
updateModel <- function(save_data = TRUE) {
  schedule<-updateScheduleAPI(save_data = save_data)
  scores <- updateScoresAPI(schedule = schedule, save_data = save_data)
  params <- updateDC(scores = scores, save_data = save_data)
  return(list("scores" = scores, "schedule" = HockeyModel::schedule, "params" = params))
}

#' Update predictions
#'
#' @param data_dir directory of predictions
#' @param scores HockeyModel::scores or a custom value
#' @param schedule HockeyModel::schedule or a custom value
#' @param params The named list containing m, rho, beta, eta, and k. See [updateDC] for information on the params list
#'
#' @return NULL
#'
#' @export
updatePredictions <- function(data_dir = getOption("HockeyModel.prediction.path"), scores = HockeyModel::scores, schedule = HockeyModel::schedule, params = NULL) {
  params <- parse_dc_params(params)

  if (scores$Date[nrow(scores)] < (Sys.Date())) {
    updateScoresAPI(save_data = TRUE)
  }
  filelist <- list.files(path = data_dir)
  pdates <- substr(filelist, 1, 10) # gets the dates list of prediction
  pdates <- pdates[pdates != "graphics"]
  lastp <- as.Date(max(pdates))
  if (lastp != Sys.Date()) {
    dcPredictMultipleDays(start = as.Date(lastp) + 1, scores = scores, schedule = schedule, filedir = data_dir)
  }
}

#' Today's game odds graphic
#'
#' @param date date to predict odds. Default today
#' @param params The named list containing m, rho, beta, eta, and k. See [updateDC] for information on the params list
#' @param schedule HockeyModel::schedule or a custom value
#' @param scores HockeyModel::scores or a custom value
#'
#' @return today's odds ggplot object
#' @export
todayOddsPlot <- function(date = Sys.Date(), params = NULL, schedule = HockeyModel::schedule, scores = HockeyModel::scores) {
  params <- parse_dc_params(params)

  if (scores$Date[nrow(scores)] < (date - 7)) {
    message("Scores may be out of date. This can affect predictions. Please update if midseason.")
  }
  if (nrow(games_today(date = date)) == 0) {
    message("No games today.")
    return()
  }
  return(plot_odds_today(today = date, params = params, schedule = schedule))
}

#' Predict playoff odds graphic
#'
#' @return playoff odds ggplot object
#' @export
playoffOdds <- function() {
  return(plot_prediction_playoffs_by_team())
}

#' Predict President's Odds graphic
#'
#' @return president's odds ggplot object
#' @export
presidentOdds <- function() {
  return(plot_prediction_presidents_by_team())
}

#' Predict Points graphic
#'
#' @return point prediction ggplot object
#' @export
pointPredict <- function() {
  return(plot_prediction_points_by_team())
}

#' Current ratings
#'
#' @param m HockeyModel::m or a custom value
#'
#' @return today's ratings ggplot object
#' @export
ratings <- function(m = HockeyModel::m) {
  return(plot_team_rating(m = m))
}

tweet <- function(games, graphic_dir = "./prediction_results/graphics", delay = stats::runif(1, min = 2, max = 6) * 60, schedule = HockeyModel::schedule) {
  if (inRegularSeason()) {
    # Only runs if schedule has regular season games remaining

    # rtoot::post_toot(
    #   status = paste0("Predicted points for #NHL teams (before games on ", Sys.Date(), ")."),
    #   media = file.path(graphic_dir, "point_predict.png"), # token = token,
    #   alt_text = paste0("Points predicted history for the last 14 days, as of ", Sys.Date(), "")
    # )
    try(
      atrrr::post(
        text = paste0("Predicted points for #NHL teams (before games on ", Sys.Date(), ")."),
        image = file.path(graphic_dir, "point_predict.png"), # token = token,
        image_alt = paste0("Points predicted history for the last 14 days, as of ", Sys.Date(), "")
      )
    )


    message("Delaying ", delay, " seconds to space tweets...")
    Sys.sleep(delay)

    # rtoot::post_toot(
    #   status = paste0("Playoff odds for #NHL teams (before games on ", Sys.Date(), "). #HockeyTwitter"),
    #   media = file.path(graphic_dir, "playoff_odds.png"),
    #   alt_text = paste0("Playoff Odds for each NHL team history and today's value as of ", Sys.Date(), "")
    # )
    try(
      atrrr::post(
        text = paste0("Playoff odds for #NHL teams (before games on ", Sys.Date(), "). #HockeyTwitter"),
        image = file.path(graphic_dir, "playoff_odds.png"),
        image_alt = paste0("Playoff Odds for each NHL team history and today's value as of ", Sys.Date(), "")
      )
    )

    message("Delaying ", delay, " seconds to space tweets...")
    Sys.sleep(delay)

    # rtoot::post_toot(
    #   status = paste0("President's trophy odds for #NHL teams (before games on ", Sys.Date(), "). #HockeyTwitter"),
    #   media = file.path(graphic_dir, "president_odds.png"),
    #   alt_text = paste0("President's Trophy Odds for each NHL team history and today's value as of ", Sys.Date(), "")
    # )
    try(
      atrrr::post(
        text = paste0("President's trophy odds for #NHL teams (before games on ", Sys.Date(), "). #HockeyTwitter"),
        image = file.path(graphic_dir, "president_odds.png"),
        image_alt = paste0("President's Trophy Odds for each NHL team history and today's value as of ", Sys.Date(), "")
      )
    )

  }
}

#' Daily functions, rolled into one call
#'
#' @param graphic_dir Directory for graphic files
#' @param subdir subdirectory to `graphic_dir` for pace plots
#' @param delay delay between tweet posts
#'
#' @export
dailySummary <- function(graphic_dir = "./prediction_results/graphics", subdir = "pace", delay = stats::runif(1, min = 2, max = 6) * 60) {
  if (inOffSeason()) {
    if (getSeasonStartDate() - Sys.Date() > 7 | getSeasonStartDate() - Sys.Date() < 0) {
      stop("Offseason")
    }
  }
  modelparams <- updateModel()
  sc <- modelparams$schedule
  params <- parse_dc_params(params = modelparams)

  if (Sys.Date() > max(sc$Date)) {
    stop("No future games planned")
  }

  if (!dir.exists(graphic_dir)) {
    dir.create(graphic_dir, recursive = TRUE)
  }

  message("Creating graphics...")

  # generate plots
  if (!is.null(games_today())) {
    today <- todayOddsPlot(params = params, schedule = modelparams$schedule, scores = modelparams$scores)
    # save to files.
    grDevices::png(filename = file.path(graphic_dir, "today_odds.png"), width = 11, height = 8.5, units = "in", res = 300)
    print(today)
    Sys.sleep(5)
    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }

    today_table <- daily_odds_table(params = params, schedule = modelparams$schedule)
    gt::gtsave(today_table, filename = file.path(graphic_dir, "today_odds_table.png"))

    # rtoot::post_toot(
    #   status = "Predicted odds table for today's #NHL games.",
    #   media = file.path(graphic_dir, "today_odds_table.png"),
    #   alt_text = paste0("Odds table for Today's NHL games, for date ", Sys.Date(), ".")
    # )
    try(
      atrrr::post(
        text = "Predicted odds table for today's #NHL games.",
        image = file.path(graphic_dir, "today_odds_table.png"),
        image_alt = paste0("Odds table for Today's NHL games, for date ", Sys.Date(), ".")
      )
    )


    # rtoot::post_toot(
    #   status = "Predicted odds for today's #NHL games.",
    #   media = file.path(graphic_dir, "today_odds.png"),
    #   alt_text = paste0("Odds graphic for Today's NHL games, for date ", Sys.Date(), ".")
    # )
    try(
      atrrr::post(
        text = "Predicted odds for today's #NHL games.",
        image = file.path(graphic_dir, "today_odds.png"),
        image_alt = paste0("Odds graphic for Today's NHL games, for date ", Sys.Date(), ".")
      )
    )


    # rtoot::post_toot(
    #   status = paste0("Current team ratings (as of ", Sys.Date(), ")."),
    #   media = file.path(graphic_dir, "current_rating.png"),
    #   alt_text = paste0("Current team rating graphic for ", Sys.Date(), ".")
    # )
    try(
      atrrr::post(
        text = paste0("Current team ratings (as of ", Sys.Date(), ")."),
        image = file.path(graphic_dir, "current_rating.png"),
        image_alt = paste0("Current team rating graphic for ", Sys.Date(), ".")
      )
    )

  }

  if (inRegularSeason()) {
    updatePredictions(scores = modelparams$scores, schedule = modelparams$schedule, params = params)
    playoff <- playoffOdds()
    president <- presidentOdds()
    point <- pointPredict()
    rating <- ratings(m = params$m)

    Sys.sleep(15)

    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }

    grDevices::png(filename = file.path(graphic_dir, "playoff_odds.png"), width = 11, height = 8.5, units = "in", res = 300)
    print(playoff)
    Sys.sleep(5)
    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }

    grDevices::png(filename = file.path(graphic_dir, "president_odds.png"), width = 11, height = 8.5, units = "in", res = 300)
    print(president)
    Sys.sleep(5)
    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }

    grDevices::png(filename = file.path(graphic_dir, "point_predict.png"), width = 11, height = 8.5, units = "in", res = 300)
    print(point)
    Sys.sleep(5)
    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }

    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()
    }

    # Make Pace Plots
    plot_pace_by_team(graphic_dir = graphic_dir, subdir = subdir, scores = modelparams$scores)
    plot_pace_by_division(graphic_dir = graphic_dir, subdir = subdir, scores = modelparams$scores)
    plot_point_likelihood(graphic_dir = graphic_dir, subdir = subdir)
  }


  message("Posting Tweets...")
  tweet(graphic_dir, delay = delay, graphic_dir = graphic_dir) # , games_today = Sys.Date() %in% sc[sc$GameStatus != "Postponed", ]$Date)

  message("Delaying ", delay, " seconds to space tweets...")
  Sys.sleep(delay)

  if (inRegularSeason()) {
    tweetPlayoffOdds(graphic_dir = graphic_dir, params = params)

    message("Delaying ", delay / 2, " seconds to space tweets...")
    Sys.sleep(delay / 2)
  } else if (inPlayoffs()) {
    message("Calculating Playoff Odds")
    tweetPlayoffOdds(graphic_dir = graphic_dir, trimcup = TRUE)
  }

  if (as.numeric(format(Sys.Date(), "%w")) == 1 & inRegularSeason()) {
    # On monday post pace plots
    tweetPace(delay = delay, graphic_dir = graphic_dir)
  }

  if (as.numeric(format(Sys.Date(), "%w")) == 0 && inRegularSeason()) {
    message("Tweeting Metrics")
    # On Sunday post metrics
    tweetMetrics()
  }

  if (as.numeric(format(Sys.Date(), "%w")) == 2 && inRegularSeason()) {
    message("Tweeting Likelihoods")
    # On Tuesday post expected points (likelihood)
    tweetLikelihoods(delay = delay, graphic_dir = graphic_dir)
  }

  series <- getAPISeries()
  if (!is.na(series) && length(series) > 1 && nrow(series[series$Status == "Ongoing", ]) > 0) { # TODO: Watch next spring to see if this goes ok
    message("Tweeting Series")
    tweetSeries(graphic_dir = graphic_dir, params = params)
    Sys.sleep(delay)
  }
}

#' Tweet Pace Plots
#'
#' @param delay Delay between posted tweets
#' @param graphic_dir The graphics directory
#' @param subdir The pace subdirectory in graphics
#' @param prediction_dir The predictions directory
#' @param scores HockeyModel::scores or a custom value
#'
#' @export
tweetPace <- function(delay = stats::runif(1, min = 1, max = 3) * 60, graphic_dir = getOption("HockeyModel.graphics.path"), subdir = "pace", prediction_dir = getOption("HockeyModel.prediction.path"), scores = HockeyModel::scores) {
  # make sure we're working with the most up-to-date info.
  scores <- updateScoresAPI(save_data = T)

  # Make Pace Plots
  plot_pace_by_team(graphic_dir = graphic_dir, subdir = subdir, prediction_dir = prediction_dir, scores = scores)

  filelist <- list.files(path = prediction_dir)
  pdates <- substr(filelist, 1, 10) # gets the dates list of prediction
  pdates <- pdates[pdates != "graphics"]
  lastp <- as.Date(max(pdates))
  current_preds <- readRDS(file.path(prediction_dir, paste0(lastp, "-predictions.RDS")))
  preds <- readRDS(file.path(prediction_dir, paste0(getSeasonStartDate(), "-predictions.RDS")))
  scores <- scores[scores$Date > as.Date(getSeasonStartDate()), ]

  teamlist <- unique(preds$Team)

  teamColours <- HockeyModel::teamColours

  reply_id <- NULL
  for (team in teamlist) {
    ngames <- sum(sum(scores$HomeTeam == team), sum(scores$AwayTeam == team))
    status <- paste0(
      team,
      " pace after ",
      ngames,
      " games. The model initially predicted ",
      format(round(as.numeric(preds[preds$Team == team, "meanPoints"]), digits = 1), nsmall = 1),
      " points, now expecting ",
      format(round(as.numeric(current_preds[current_preds$Team == team, "meanPoints"]), digits = 1), nsmall = 1),
      ". #HockeyTwitter ",
      teamColours[teamColours$Team == team, "Hashtag"]
    )

    try(
      atrrr::post(
        text = status,
        image = file.path(graphic_dir, subdir, paste0(tolower(gsub(" ", "_", team)), ".png")),
        image_alt = paste0(team, "'s Performance against predicted pace as of ", Sys.Date(), "")
      )
    )

    # rtoot::post_toot(
    #   status = status,
    #   media = file.path(graphic_dir, subdir, paste0(tolower(gsub(" ", "_", team)), ".png")),
    #   alt_text = paste0(team, "'s Performance against predicted pace as of ", Sys.Date(), "")
    # )

    message("Delaying ", delay, " seconds to space tweets...")
    Sys.sleep(stats::runif(1, min = 1, max = 3) * 60)
  }
  pacediff <- data.frame("Team" = current_preds$Team, "Initial" = preds$meanPoints, "Current" = current_preds$meanPoints, stringsAsFactors = FALSE)
  pacediff$Diff <- pacediff$Current - pacediff$Initial

  maxteam <- pacediff[which.max(pacediff$Diff), "Team"]
  minteam <- pacediff[which.min(pacediff$Diff), "Team"]

  recapstatus <- paste0(
    "To recap - ",
    "\nFurthest above expectation: ", maxteam, " ", teamColours[teamColours$Team == maxteam, "Hashtag"],
    "\nFurthest below expectation: ", minteam, " ", teamColours[teamColours$Team == minteam, "Hashtag"]
  )
  atrrr::post(text = recapstatus)
  # rtoot::post_toot(status = recapstatus)

  Sys.sleep(stats::runif(1, min = 2, max = 6) * 60)

  # Make Division Plots
  plot_pace_by_division(graphic_dir = graphic_dir, subdir = subdir, prediction_dir = prediction_dir, scores = scores)

  for (division in getDivisions()) {
    status <- paste("Current Points compared to predicted (at season start) for #NHL teams in the", division, "division.\nPositive values are exceeding expectation, negative are performing below predicted.")
    # rtoot::post_toot(
    #   status = status,
    #   media = file.path(graphic_dir, subdir, paste0(division, "_pace.png")),
    #   alt_text = paste0(division, " teams pace above/below expected as of ", Sys.Date(), ".")
    # )
    try(
      atrrr::post(
        text = status,
        image = file.path(graphic_dir, subdir, paste0(division, "_pace.png")),
        image_alt = paste0(division, " teams pace above/below expected as of ", Sys.Date(), ".")
      )
    )

    message("Delaying ", delay, " seconds to space tweets...")
    Sys.sleep(delay)
  }
}

#' Tweet Likelihood plots (ggridges)
#'
#' @param delay time to delay. Default 5 min
#' @param graphic_dir graphics directory
#' @param subdir subdirectory - usually 'preds'
#' @param scores updated scores
#
#' @export
tweetLikelihoods <- function(delay = stats::runif(1, min = 3, max = 6) * 60, graphic_dir = getOption("HockeyModel.graphics.path"), subdir = "pace", scores = HockeyModel::scores) {
  # make likelihood plots
  plot_point_likelihood(graphic_dir = graphic_dir, subdir = subdir)

  for (conf in getConferences()) {
    if (file.exists(file.path(graphic_dir, subdir, paste0(tolower(conf), "likelihood.png"))) &
      as.Date(file.mtime(file.path(graphic_dir, subdir, paste0(tolower(conf), "likelihood.png")))) == Sys.Date()) {
      # Tweet them out

      # rtoot::post_toot(
      #   status = paste0("#NHL ", conf, " Conference Team final point likelihoods:"),
      #   media = file.path(graphic_dir, subdir, paste0(tolower(conf), "likelihood.png")),
      #   alt_text = paste0("Point likelihoods for teams in the ", conf, " conference.")
      # )
      try(
        atrrr::post(
          text = paste0("#NHL ", conf, " Conference Team final point likelihoods:"),
          image = file.path(graphic_dir, subdir, paste0(tolower(conf), "likelihood.png")),
          image_alt = paste0("Point likelihoods for teams in the ", conf, " conference.")
        )
      )


      # delay
      message("Delaying ", delay / 2, " seconds to space tweets...")
      Sys.sleep(delay / 2)
    }
  }
}

#' Tweet Game Plots
#'
#' @param games Games to tweet graphics from
#' @param delay Delay between tweets
#' @param graphic_dir the graphics directory
#' @param params The named list containing m, rho, beta, eta, and k. See [updateDC] for information on the params list
#'
#' @export
tweetGames <- function(games = games_today(), delay = stats::runif(1, min = 4, max = 8) * 60, graphic_dir = getOption("HockeyModel.graphics.path"), params = NULL) {
  params <- parse_dc_params(params)
  # Tweet each game
  if (is.null(games)) {
    message("No games to tweet")
    return()
  }

  if (nrow(games) == 0) {
    message("No games to tweet")
    return()
  }

  if (!dir.exists(graphic_dir)) {
    dir.create(graphic_dir, recursive = TRUE)
  }

  teamColours <- HockeyModel::teamColours

  for (g in 1:nrow(games)) {
    home <- as.character(games[g, "HomeTeam"])
    away <- as.character(games[g, "AwayTeam"])
    plt <- plot_game(home = home, away = away, params = params)
    grDevices::png(filename = file.path(graphic_dir, "predicted_goals.png"), width = 11, height = 8.5, units = "in", res = 300)
    print(plt)
    while (grDevices::dev.cur() != 1) {
      grDevices::dev.off()
    }
    status <- paste0(teamColours[teamColours$Team == away, "Hashtag"], " at ", teamColours[teamColours$Team == home, "Hashtag"], " predicted goals. #", getShortTeam(away), "vs", getShortTeam(home), " #HockeyTwitter")

    # rtoot::post_toot(
    #   status = status,
    #   media = file.path(graphic_dir, "predicted_goals.png"),
    #   alt_text = paste0("Odds of each goal for both ", away, " and ", home, " in their game.")
    # )
    try(
      atrrr::post(
        text = status,
        image = file.path(graphic_dir, "predicted_goals.png"),
        image_alt = paste0("Odds of each goal for both ", away, " and ", home, " in their game.")
      )
    )

    file.remove(file.path(graphic_dir, "predicted_goals.png"))

    message("Delaying ", delay, " seconds to space tweets...")
    Sys.sleep(delay)
  }
}

#' Tweet Metrics
#' @description Tweet the metrics (Log Loss and Accuracy)
#'
#' @return NULL
#' @export
tweetMetrics <- function() {
  metrics <- getSeasonMetricsDC()

  status <- paste0(
    "Metrics as of ", Sys.Date(),
    "\nLog Loss: ", round(metrics$LogLoss, 4),
    "\nAccuracy: ", round(metrics$Accuracy * 100, 2), " %"
  )
  message(status)

  # rtoot::post_toot(status = status)
  try(atrrr::post(text = status))
}

#' Tweet Series
#' @description Tweet the series odds graphics
#'
#' @param graphic_dir directory to save the image
#' @param params The named list containing m, rho, beta, eta, and k. See [updateDC] for information on the params list
#'
#' @return NULL
#' @export
tweetSeries <- function(params = NULL, graphic_dir = getOption("HockeyModel.graphics.path")) {
  params <- parse_dc_params(params)
  while (grDevices::dev.cur() != 1) {
    grDevices::dev.off()
  }
  series <- getAPISeries()
  series <- series[series$Status == "Ongoing", c("HomeTeam", "AwayTeam", "HomeWins", "AwayWins")]
  if (nrow(series) == 0) {
    message("No Series to Tweet")
    return()
  }
  plt <- plot_playoff_series_odds(series = series, params = params)
  grDevices::png(filename = file.path(graphic_dir, "series_odds.png"), width = 11, height = 8.5, units = "in", res = 300)
  print(plt)
  while (grDevices::dev.cur() != 1) {
    grDevices::dev.off()
  }

  status <- paste0("#NHL #StanleyCup Playoff Series Odds before games on ", Sys.Date())
  # rtoot::post_toot(
  #   status = status,
  #   media = file.path(graphic_dir, "series_odds.png"),
  #   alt_text = "A graphic showing odds for each series' winner"
  # )
  try(
    atrrr::post(
      text = status,
      image = file.path(graphic_dir, "series_odds.png"),
      image_alt = "A graphic showing odds for each series' winner"
    )
  )
}


#' Tweet Playoff Odds
#'
#' @description Tweet a graphic of the playoff odds
#'
#' @param summary_results the summary results file, otherwise the most recent will be loaded
#' @param graphic_dir graphic dir
#' @param trimcup trim to just cup winners
#' @param params The named list containing m, rho, beta, eta, and k. See [updateDC] for information on the params list
#'
#' @return NULL
#' @export
tweetPlayoffOdds <- function(summary_results = NULL, params = NULL, graphic_dir = getOption("HockeyModel.graphics.path"), trimcup = FALSE) {
  stopifnot(requireNamespace("gt", quietly = TRUE))

  params <- parse_dc_params(params)
  playoffodds <- simulatePlayoffs(summary_results = summary_results, params = params)

  playoffodds$Conference <- getTeamConferences(playoffodds$Team)
  if (trimcup) {
    plt <- format_playoff_odds(playoff_odds = playoffodds, caption_text = "NHL Playoffs", trim = FALSE, trimcup = trimcup)
    gt::gtsave(plt, filename = file.path(graphic_dir, "playoff_odds.png"))

    status <- paste0("#NHL Eastern and Western Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), ". #HockeyTwitter")

    # Posting Tweet
    # rtoot::post_toot(
    #   status = paste0("#NHL Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
    #   media = file.path(graphic_dir, "playoff_odds.png"),
    #   alt_text = "Playoff Odds"
    # )
    try(
      atrrr::post(
        text = paste0("#NHL Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
        image = file.path(graphic_dir, "playoff_odds.png"),
        image_alt = "Playoff Odds"
      )
    )

  } else {
    for (conf in unique(playoffodds$Conference)) {
      plt <- format_playoff_odds(playoff_odds = playoffodds[playoffodds$Conference == conf, which(names(playoffodds) != "Conference")], caption_text = paste(conf, "Conference"), trim = FALSE, trimcup = trimcup)
      gt::gtsave(plt, filename = file.path(graphic_dir, paste0(tolower(conf), "_playoff_odds.png")))
    }
    status <- paste0("#NHL Eastern and Western Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), ". #HockeyTwitter")

    # Posting Tweet
    # rtoot::post_toot(
    #   status = paste0("#NHL Eastern Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
    #   media = file.path(graphic_dir, "eastern_playoff_odds.png"),
    #   alt_text = "Eastern Playoff Odds"
    # )
    # rtoot::post_toot(
    #   status = paste0("#NHL Western Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
    #   media = file.path(graphic_dir, "western_playoff_odds.png"),
    #   alt_text = "Western Playoff Odds"
    # )
    try(
      atrrr::post(
        text = paste0("#NHL Eastern Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
        image = file.path(graphic_dir, "eastern_playoff_odds.png"),
        image_alt = "Eastern Playoff Odds"
      )
    )

    try(
      atrrr::post(
        text = paste0("#NHL Western Conference Playoff and #StanleyCup Odds before games on ", Sys.Date(), "."),
        image = file.path(graphic_dir, "western_playoff_odds.png"),
        image_alt = "Western Playoff Odds"
      )
    )
  }
}