#' Get Team Season Stats
#'
#' Returns a dataframe of the overall team's season stats
#' for the sport and year chosen.
#' @param team_id Team ID from team_mapping
#' @param sport Tradiational Sport Name or Sport Code
#' @param year Actual Year
#' Note for seasons Year1-Year2, Year2 is what you want to use in the functions.
#' For example, the 2015-2016 season is denoted for 2016.
#' @importFrom magrittr "%>%"
#' @importFrom xml2 "read_html"
#' @importFrom rvest "html_table"
#' @keywords Team Season Stats
#' @export
#' @examples
#' team_season_stats(697,2016,"MBB")
#'
#' team_season_stats(697,2015,"Womens Soccer")
team_season_stats <- function(team_id,year,sport){
team_url <- team_url_stats(team_id,year,sport)
stats_list <- read_html(team_url) %>% html_table()
stats_df <- stats_list[[length(stats_list)]]
team_df <- stats_df[(nrow(stats_df)-1):nrow(stats_df),]
team_df$year <- year
rm_cols <- c("Jersey","Yr","Pos","GP","GS")
rm_cols <- rm_cols[rm_cols %in% names(team_df)]
team_df <- team_df[, !(colnames(team_df) %in% rm_cols)]
return(team_df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.