baseballr_milb_box.R

library(baseballr)
library(tidyr)

#standings_on_date_bref("2015-08-01","NL East", from = FALSE)
getwd()
setwd('/Users/jpurrutia/Desktop/rfdb/tables')

df = read.csv('id_vector.csv')


test = list()

# option with trycatch
for (i in 1:nrow(df)) {
    tryCatch({
    test[[i]] = milb_batter_game_logs_fg(playerid=df$fangraph_minor_id,year=df$year)
  }, error=function(e){})
}

# option without trycatch
for (i in 1:nrow(df)) {
    test[[i]] = milb_batter_game_logs_fg(playerid=df$fangraph_minor_id,year=df$year)
}


#data_two = bind_rows(dframe,test)

empty_dframe = data.frame(name = character(),
                          minor_playerid = character(),
                          Date = character(),
                          Team = character(),
                          Level = character(),
                          Opp = character(),
                          AVG = character(),
                          G = character(),
                          AB = character(),
                          PA = character(),
                          H = character(),
                          X1B = character(),
                          X2B = character(),
                          X3B = character(),
                          HR = character(),
                          R = character(),
                          RBI = character(),
                          BB = character(),
                          IBB = character(),
                          SO = character(),
                          HBP = character(),
                          SF = character(),
                          SH = character(),
                          GDP = character(),
                          SB = character(),
                          CS = character(),
                          BB_perc = double(),
                          K_perc = double(),
                          BB_per_K = character(),
                          OBP = character(),
                          SLG = character(),
                          OPS = character(),
                          ISO = character(),
                          Spd = character(),
                          BABIP = character(),
                          wSB = character(),
                          wRC = character(),
                          wRAA = character(),
                          wOBA = character(),
                          wRC_plus = character())