Forked from bayesball/parse.retrosheet2.pbp.R
- Download Play By Play Retrosheet Data Mac Chadwicks Of Boston
- Download Play By Play Retrosheet Data Mac Chadwick Boseman
- Download Play By Play Retrosheet Data Mac Chadwicks
Download Play By Play Retrosheet Data Mac Chadwicks Of Boston
R function for downloading, upzipping, and appending Retrosheet play-by-play data
Download Play By Play Retrosheet Data Mac Chadwick Boseman
parse.retrosheet2.pbp.R
Mac os x lion 10.7 full download. That magical time of year has come again. Mac os skin pack for windows 7 64 bit free download. Yes, the very very fine folks over at Retrosheet have updated their game files once again, and the new batch includes (among other updates) the play-by-play files for every baseball game in 2014. There are a lot of things you can do with the Retrosheet files, but one of the most powerful options is to create a Retrosheet MySQL database. Chadwick tools for manipulating baseball data. Contribute to chadwickbureau/chadwick development by creating an account on GitHub. Chadwick is a collection of command-line utility programs for extracting information from baseball play-by-play and boxscore files in the DiamondWare format, as used by Retrosheet.
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() |
} |
Download Play By Play Retrosheet Data Mac Chadwicks
Sign up for freeto join this conversation on GitHub. Already have an account? Sign in to comment