R/replace_team_names.R

In JakeKlein/BaseballDB: Functions for acquiring and storing baseball data

pitchfx_teams=c("chamlb","miamlb","wasmlb","anamlb","detmlb","nyamlb","tbamlb","phimlb","cinmlb","kcamlb","oakmlb","milmlb","arimlb",
                "seamlb","colmlb","sdnmlb","atlmlb","balmlb","clemlb","texmlb","chnmlb","minmlb","houmlb","slnmlb",
                "bosmlb","lanmlb","nynmlb","tormlb","sfnmlb","pitmlb")

statcast_teams=c("CWS","MIA","WSH","LAA","DET","NYY","TB","PHI","CIN","KC","OAK","MIL","ARI",
                "SEA","COL","SD","ATL","BAL","CLE","TEX","CHC","MIN","HOU","STL",
                "BOS","LAD","NYM","TOR","SF","PIT")

replace_team_names<-function(name,verbose=FALSE){
  index=match(name,pitchfx_teams);
  name=statcast_teams[index];
  if(verbose==TRUE){
    print(name)
  }
  invisible(name)
}