R/msf-by-game.r

In dfs-with-r/msf2: API for mysportsfeeds

#' MySportsFeeds API calls by game
#'
#' If you provide multiple gameids it will execute with a delay between each query.
#' This is to ensure you obey limit rates but you are free to lower the parameter if you don't
#' think your queries will reach the throttle limits.
#'
#' @param feed feed to request
#' @param sport mlb | nfl | nba | etc..
#' @param gameid strings, "40265" or c("40265", "11111") or "20171015-SF-WAS"
#' @param season string, ex. "2017-regular" | "2017-playoff"
#' @param delay number of seconds between queries
#' @param ... additional query parameters
#'
#' @examples
#' \dontrun{
#' j <- game_boxscore("nba", "47627", playerstats = c("ftMade", "ftAtt"))
#' }
msf_by_game <- function(feed, sport, gameid, season = "current", delay = 1, ...) {
  stopifnot(length(feed) == 1L, length(sport) == 1L, length(season) == 1L)
  path <- sprintf("%s/%s/games/%s/%s.json", sport, season, gameid, feed)

  if (!missing(...)) {
    query <- list(...)
    query <- lapply(query, paste, collapse = ",")
  } else {
    query <- NULL
  }

  if (length(gameid) > 1) {
    result <- purrr::map(path, ~ delay_by(delay, msf_api)(.x, query))
    result <- purrr::map2(result, path, function(r, p) {attr(r, "local_path") <- p; r})
    names(result) <- gameid
    result <- lapply(result, msf_class, feed)
  } else {
    result <- msf_api(path, query)
    attr(result, "local_path") <- path
    result <- msf_class(result, feed)
  }

  result
}

#' @describeIn msf_by_game Expected and Actual starting lineup for both teams of a game.
#' @export
game_lineup <- function(sport, gameid, season = "current", ...) {
  msf_by_game("lineup", sport, gameid, season, ...)
}

#' @describeIn msf_by_game A boxscore for a game including game details and team/player stats.
#' @export
game_boxscore <- function(sport, gameid, season = "current", ...) {
  msf_by_game("boxscore", sport, gameid, season, ...)
}

#' @describeIn msf_by_game All play-by-play events for a game with full details.
#' @export
game_pbp <- function(sport, gameid, season = "current", ...) {
  msf_by_game("playbyplay", sport, gameid, season, ...)
}