R/battingcareer.R

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

#' Offensive seasonal performance by player career
#'
#' This function returns a MLB player's career performance
#' statistics from the Lahman baseball database
#'
#' @param playerID - Unique Lahman reference ID
#' @return Dataframe of career batting statistics for \code{playerID}
#' @export
#' @import DBI
#' @import RSQLite
#' @example man/examples/battingcareer.R
battingcareer <- function(playerID = 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, "' GROUP BY yearID", sep="")
  db <- lahman()
  query <- RSQLite::dbGetQuery(db, query)
  query <- as.data.frame(query)

  print(query)
}