R/complete_game_shutout.R

Defines functions cgs_calculate

Documented in cgs_calculate

#' Complete Game Shutout count formula
#'
#' Creating a list of players who have achieve Complete Game Shutout on the team.
#'
#' @param data KBO pitcher data
#' @param team KBO team name
#' @return List of players who achieved Complete Game Shutout
#' @examples
#' cgs_calculate(hanhwa_pitcher_2018,"한화")
#' @export

cgs_calculate <- function(data,team){
  if(team == "NO game participation"){
    cgs_list <- data.frame()
    return(cgs_list)
  }
  data <- find_team(data,team)
  cgs_list <- data.frame()
  for(i in unique(data$date)){
    if(all(NROW(data[data$date==i,])==1 & data$r[data$date==i]==0)==TRUE){
      cgs_list <- rbind(cgs_list,data.frame(date=i,team=data$team[data$date==i],name=data$name[data$date==i],id=data$id[data$date==i],cgs=1))
    }
  }
  return(cgs_list)
}
choosunsick/kbodatamining documentation built on May 18, 2019, 1:30 p.m.