R/MLB_PostSeason_Batting.R

In madeline-peyton/B581Final: Web Scrape for MLB Data

#' Web Scrape for MLB Post-Season Batting Data
#'
#' @param year MLB Season Year of Interest
#' @param series MLS Post-Season Series of Interest
#' @param WorL Winner or Loser Data
#'
#' @return
#' @export
#'
#' @importFrom rvest html_table
#' @importFrom xml2 read_html
#' @examples
#' year = 1966
#' series = 'WS'
#' WorL = 'L'
#' WS.1966.L = MLB_PostSeason_Batting(year, series, WorL)
MLB_PostSeason_Batting <- function(year, series, WorL){
  html <- paste0('https://www.baseball-reference.com/postseason/',year,'_',series,'.shtml')
  html.read <- read_html(html)
  table <- html_table(html.read)
  length <- length(table)
  winner.batting <- as.data.frame(table[length-1])
  winner.batting2 <- winner.batting[2:(nrow(winner.batting)-1),]
  names(winner.batting2) <- winner.batting[1,]
  winner.batting3 <- winner.batting2[,1:(ncol(winner.batting2)-9)]

  loser.batting <- as.data.frame(table[length])
  loser.batting2 <- loser.batting[2:(nrow(loser.batting)-1),]
  names(loser.batting2) <- loser.batting[1,]
  loser.batting3 <- loser.batting2[,1:(ncol(loser.batting2)-9)]

  if (WorL == 'W'){
    return(winner.batting3)
  }else if (WorL == 'L')
    return(loser.batting3)
}