R/corrections.R

In fflr: Retrieve ESPN Fantasy Football Data

#' Stat corrections
#'
#' Weekly retroactive stat corrections by player.
#'
#' @param date A date in the scoring week to return. Defaults to system date.
#' @param limit The limit of corrections to return. Use `""` or `NULL` to return
#'   all. Defaults to 100, which is the default limit used by ESPN. Removing the
#'   limit can make the request take a long time.
#' @return A data frame of stat corrections.
#' @examples
#' stat_corrections(date = "2021-09-13")
#' @export
stat_corrections <- function(date = Sys.Date(), limit = 100) {
  if (!inherits(date, "Date")) {
    date <- tryCatch(expr = as.Date(date), error = function(e) date)
    if (!inherits(date, "Date")) {
      stop(paste(date, "is not a date object"))
    }
  }
  dat <- try_json(
    url = paste0(
      "https://sports.core.api.espn.com",
      "/v2/sports/football/leagues/nfl/seasons/2021/corrections"
    ),
    query = list(
      limit = limit,
      date = format(as.Date(date), "%Y%m%d")
    )
  )
  if (dat$count > dat$pageSize) {
    stop("Number of results exceeds limit")
  }
  x <- dat$items$splitStats$categories
  if (is.null(x)) {
    warning("No stat corrections for this week (yet)")
    return(
      data.frame(
        date = as.Date(character()),
        playerId = integer(),
        name = character(),
        abbreviation = character(),
        value = double()
      )
    )
  }
  player_id <- as.integer(sub(".*/(\\d+)\\?.*", "\\1", dat$items$athlete[[1]]))
  out <- rep(list(NA), length(x))
  for (i in seq_along(x)) {
    for (k in seq_along(x[[i]]$stats)) {
      x[[i]]$stats[[k]] <- cbind(playerId = player_id[i], x[[i]]$stats[[k]])
    }
    out[[i]] <- x[[i]]$stats
  }
  out <- lapply(out, FUN = function(x) do.call("rbind", x))
  out <- do.call("rbind", out)[, c("playerId", "name", "abbreviation", "value")]
  out <- cbind(date = date, out)
  as_tibble(out[order(out$playerId), ])
}