R function for downloading, upzipping, and appending Retrosheet play-by-play data

parse.retrosheet2.pbp.R

parse.retrosheet2.pbp = function(season){
# ADJUSTED FOR MAC -- function will work for WINDOWS and MAC
# download, unzip, append retrosheet data
# assume current directory has a folder download.folder
# download.folder has two subfolders unzipped and zipped
# program cwevent.exe is in unzipped folder (for windows)

download.retrosheet <- function(season){
  # get zip file from retrosheet website
  download.file(
    url=paste("http://www.retrosheet.org/events/", season, "eve.zip", sep="")
    , destfile=paste("download.folder", "/zipped/", season, "eve.zip", sep="")
    )
}
unzip.retrosheet <- function(season){
  #unzip retrosheet files
  unzip(paste("download.folder", "/zipped/", season, "eve.zip", sep=""), 
        exdir=paste("download.folder", "/unzipped", sep=""))
}
create.csv.file=function(year){
  # http://chadwick.sourceforge.net/doc/cwevent.html#cwtools-cwevent
  # shell("cwevent -y 2000 2000TOR.EVA > 2000TOR.bev")
  wd = getwd()
  setwd("download.folder/unzipped")
  if (.Platform$OS.type == "unix"){
  system(paste(paste("cwevent -y", year, "-f 0-96"), 
              paste(year,"*.EV*",sep=""),
              paste("> all", year, ".csv", sep="")))} else {
  shell(paste(paste("cwevent -y", year, "-f 0-96"), 
              paste(year,"*.EV*",sep=""),
              paste("> all", year, ".csv", sep="")))              
              }
  setwd(wd)
}
create.csv.roster = function(year){
  # creates a csv file of the rosters
  filenames <- list.files(path = "download.folder/unzipped/")
  filenames.roster = 
    subset(filenames, substr(filenames, 4, 11)==paste(year,".ROS",sep=""))
  read.csv2 = function(file)
    read.csv(paste("download.folder/unzipped/", file, sep=""),header=FALSE)
  R = do.call("rbind", lapply(filenames.roster, read.csv2))
  names(R)[1:6] = c("Player.ID", "Last.Name", "First.Name", 
                    "Bats", "Pitches", "Team")
  wd = getwd()
  setwd("download.folder/unzipped")
  write.csv(R, file=paste("roster", year, ".csv", sep=""))
  setwd(wd)
}
cleanup = function(){
  # removes retrosheet files not needed
  wd = getwd()
  setwd("download.folder/unzipped")
  if (.Platform$OS.type == "unix"){
     system("rm *.EVN")
     system("rm *.EVA")
     system("rm *.ROS")
     system("rm TEAM*")} else {
     shell("del *.EVN")
     shell("del *.EVA")
     shell("del *.ROS")
     shell("del TEAM*")
   }       
  setwd(wd)
  setwd("download.folder/zipped")
  if (.Platform$OS.type == "unix"){
    system("rm *.zip")} else {
    shell("del *.zip")
  }
  setwd(wd)
}
  download.retrosheet(season)
  unzip.retrosheet(season)
  create.csv.file(season)
  create.csv.roster(season)
  cleanup()
}

Has anyone ever had a problem with this error on a Mac?

/bin/sh: cwevent: command not found

I can't seem to find a solution. I am able to call cwevent in the command line but not in an R shell.

@ssharpe42 you'll need to install the chadwick cli

Has anyone had this following error on mac when trying to append 2014 year data into "games" table in retrosheet database on sequel pro?

[ERROR in row 6] Incorrect integer value: 'F' for column 'GAME_DT' at row 1

I get this error for every row of data when I "import" "all2014.csv" file into "games" table.