# \donttest{
### Correa
x<- try(statcast_search(start_date = "2016-04-06",
end_date = "2016-04-15",
playerid = 621043,
player_type = 'batter'))
### Noah
try(statcast_search(start_date = "2016-04-06",
end_date = "2016-04-15",
playerid = 592789,
player_type = 'pitcher'))
### Daily
try(statcast_search(start_date = "2016-04-06",
end_date = "2016-04-06"))
# }
# \donttest{
correa <- statcast_search_batters(start_date = "2016-04-06",
end_date = "2016-04-15", batterid = 621043)
daily <- statcast_search_batters(start_date = "2016-04-06",
end_date = "2016-04-06", batterid = NULL)
# }
# \donttest{
x <- statcast_search_pitchers(start_date = "2016-04-06",
end_date = "2016-04-15", pitcherid = 592789)
daily <- statcast_search_pitchers(start_date = "2016-04-06",
end_date = "2016-04-06", pitcherid = NULL)
# }
Run the code above in your browser using DataLab