R/MLB_Team_Stat_Avg.R

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

#' Metric Average Calculation for MLB Team Batting and Pitching Data
#'
#' @param TeamAbbr MLB Team Abbreviation
#' @param year MLB Season Year
#' @param statistic Statistic of Interest
#' @param BorP Batting or Pitching Data
#'
#' @return
#' @export
#'
#' @examples
#' TeamAbbr <- 'HOU'
#' year <- 2008
#' statistic <- 'SO'
#' BorP <- 'B'
#' MLB_Team_Stat_Avg(TeamAbbr, year, statistic, BorP)
MLB_Team_Stat_Avg <- function(TeamAbbr, year, statistic, BorP){

  data <- MLB_Team(TeamAbbr, year, BorP)

  stat.data <- as.data.frame(sapply(data[,c(statistic)], as.numeric))
  stat.data1 <- na.omit(stat.data)
  stat <- as.character(statistic)
  colnames(stat.data1) <- c(stat)

  avg.data <- mean(stat.data1[,1])

  final <- sprintf(paste("The average", statistic, "for", TeamAbbr, "in", year, "was", avg.data))


  return(final)
}