R/pitcher_boxscore.R

In Fackz/baseball: Functions for acquiring and analyzing baseball data

#' @rdname batter_boxscore
#' @export
#' @examples
#' # pitchers
#' url_base <- "http://gd2.mlb.com/components/game/mlb/"
#' url <- paste0(url_base, 
#'   "year_2016/month_05/day_21/gid_2016_05_21_milmlb_nynmlb_1/boxscore.xml")
#' pitcher_boxscore(url)

pitcher_boxscore <- function(x) {
  url <- x
  box <- xmlParse(url)
  xml_data <- xmlToList(box)
  end <- length(xml_data[[2]]) - 1
  x <- seq(1:end)
  away_pitchers <- lapply(xml_data[[2]][x], function(x)
    as.data.frame.list(x, stringsAsFactors=FALSE)) %>%
    bind_rows()
  away_pitchers$team <- xml_data[[8]][6]

  h_end <- length(xml_data[[4]]) - 1
  h_x <- seq(1:h_end)
  home_pitchers <- lapply(xml_data[[4]][h_x], function(x)
    as.data.frame.list(x, stringsAsFactors=FALSE)) %>%
    bind_rows()
  home_pitchers$team <- xml_data[[8]][7]

  pitcher_col_names <- c("id", "name", "name_display_first_last", "pos", "out", "bf", "er", "r", "h", "so", "hr", "bb", "np", "s", "w", "l", "sv", "bs", "hld", "s_ip", "s_h", "s_r", "s_er", "s_bb", "s_so", "game_score", "era", "note", "team")

  home_pitchers <- select_(home_pitchers, .dots = pitcher_col_names)
  away_pitchers <- select_(away_pitchers, .dots = pitcher_col_names)

  pitchers <- rbind(away_pitchers, home_pitchers)
  pitchers
}