change file write to .csv in playbyplay.R