R/GetLineupStats.R

In ccagrawal/sportsTools: Scraper for Sports Data

#' Lineup stats
#' 
#' @param year e.g. 2015 for 2014-15 season
#' @param players Number of players to get lineup stats on (2-5)
#' @param type 'Advanced'
#' @param date.from starting date
#' @param date.to ending date
#' @param team.ids Optional dataframe of team.ids
#' @return data frame of stats
#' @keywords lineup stats
#' @importFrom httr GET content add_headers
#' @export
#' @examples
#' GetLineupStats(year = 2016, players = 5, type = 'Advanced')

GetLineupStats <- function(year, players = 5, type = 'Advanced', 
                           date.from = '', date.to = '', team = 0, team.ids = NA) {
  
  options(stringsAsFactors = FALSE)
  
  team <- TeamNameToID(team)

  request = GET(
    "http://stats.nba.com/stats/leaguedashlineups",
    query = list(
      Conference = "",
      DateFrom = date.from,
      DateTo = date.to,
      Division = "",
      GameID = "",
      GameSegment = "",
      GroupQuantity = players,
      LastNGames = 0,
      LeagueID = "00",
      Location = "",
      MeasureType = type,
      Month = 0,
      OpponentTeamID = 0,
      Outcome = "",
      PORound = 0,
      PaceAdjust = "N",
      PerMode = "Totals",
      Period = 0,
      PlusMinus = "N",
      Rank = "N",
      Season = YearToSeason(year),
      SeasonSegment = "",
      SeasonType = "Regular Season",
      ShotClockRange = "",
      TeamID = team,
      VsConference = "",
      VsDivision = ""
    ),
    add_headers('Referer' = 'http://stats.nba.com/league/lineups/',
                'User-Agent' = 'Mozilla/5.0')
  )
  
  content <- content(request, 'parsed')[[3]][[1]]
  stats <- ContentToDF(content)
  
  char.cols <- which(colnames(stats) %in% CHARACTER.COLUMNS)
  stats[, -char.cols] <- sapply(stats[, -char.cols], as.numeric)

  return(stats)
}