R/ncaa_vb_roster.R

In ehess/ncaascrapR: Functions to Access NCAA Sports Data

#' @title ncaa_vb_roster
#' @description Scrape roster information from the stats.ncaa.org website
#'
#' @details How to get a school_id and team_id:
#' 1. find the team you want to view data for on the stats.ncaa.org website
#' 2. select the "roster" tab from the team's page
#' 3. note the two sets of numbers in the URL
#' 4. the first number in the URL is the school_id, the second number is the team_id
#'
#'
#' @param school_id the id for the school across all seasons
#' @param team_id the id for the roster for that school's season
#' @returns a data frame of the roster for the team

ncaa_vb_roster <- function(school_id, team_id) {
  base_url <- "https://stats.ncaa.org/team"

  full_url <- paste(base_url, school_id, "roster", team_id, sep="/")

  base <- rvest::read_html(full_url)

  roster_nodes <- base %>%
    rvest::html_elements("#stat_grid") %>%
    html_elements("tr:not(.grey_heading)")

  roster_table <- base %>%
    rvest::html_table()
  data <- roster_table[[1]]

  colnames(data) <- data[1,]

  roster <- data %>%
    dplyr::filter(!dplyr::row_number() == 1)

  return(data)
}