R/team_results_ref.R

In pontsuyu/statcastr: Functions for scraping and analyzing statcast data

#' This function allows you to scrape schedule and results for a major league team from Baseball-Reference.com
#'
#' @param Tm The abbreviation used by Baseball-Reference.com for the team whose results you want to scrape.
#' @param year Season for which you want to scrape the park factors.
#' @importFrom dplyr filter_ rename filter
#' @importFrom xml2 read_html
#' @importFrom rvest html_table
#'
#' @examples
#' team_results_ref("NYM", 2015)
#' team_results_ref("TBR", 2008)
team_results_ref <- function(Tm, year) {
  url <- paste0(
    "https://www.baseball-reference.com/teams/", Tm,
    "/", year, "-schedule-scores.shtml"
  )
  data <- url %>%
    read_html() %>%
    html_nodes("table") %>%
    .[[length(.)]] %>%
    html_table() %>%
    `[`(-3) %>%
    rename(Record = `W-L`, Result = `W/L`, Gm = `Gm#`)
  names(data) <- c(
    "Gm", "Date", "Tm", "H_A", "Opp", "Result", "R", "RA",
    "Inn", "Record", "Rank", "GB", "Win", "Loss", "Save",
    "Time", "D/N", "Attendance", "Streak", "Orig_Scheduled"
  )
  data$H_A <- ifelse(grepl("@", data$H_A, fixed = TRUE), "A", "H")
  data$Attendance <- gsub(",", "", data$Attendance)
  data$Streak <- ifelse(grepl("-", data$Streak, fixed = TRUE),
    nchar(data$Streak) * -1,
    nchar(data$Streak) * 1
  )

  for (i in c("R", "Rank", "Attendance")) {
    if (!is.numeric(data[, i])) {
      data[, i] <- suppressWarnings(as.numeric(data[, i]))
    }
  }

  return(data %>% mutate(Year = year) %>% filter(!grepl("Gm#", Gm)))
}