R/battingseason.R

In mdlee12/sabr: Query offensive performance statistics from the 2015 Lahman MLB SQL Database

#' Offensive performance by player season
#'
#' This function returns a MLB player's offensive performance
#' statistics from the Lahman baseball database
#'
#' @param playerID - Unique Lahman reference ID
#' @param yearID - Season
#' @return Dataframe of batting statistics of \code{playerID} during
#' \code{yearID}
#' @export
#' @example man/examples/battingseason.R
battingseason <- function(playerID = NULL, yearID = NULL) {

  query <- paste("SELECT playerID, yearID, MAX(stint) as stints, GROUP_CONCAT(DISTINCT teamID) as teamID, SUM(AB) as AB, SUM(R) as R, SUM(H) as H, SUM([2B]) as DB, SUM([3B]) as TR,SUM(HR) as HR, SUM(RBI) as RBI, SUM(SB) as SB, SUM(CS) as CS, SUM(BB) as BB,  SUM(SO) as SO, SUM(IBB) as IBB, SUM(SF) as SF, SUM(SH) as SH, SUM(GIDP) as GIDP, SUM(HBP) as HBP FROM Batting WHERE playerID = '", playerID, "' AND yearID = '", yearID, "' GROUP BY yearID", sep="")
  db <- lahman()
  query <- RSQLite::dbGetQuery(db, query)
  query <- as.data.frame(query)

  print(query)
}