#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.