# https://baseballwithr.wordpress.com/2017/02/06/baseballr-package-a-first-look/

library(dplyr)
library(baseballr)

#d <- fg_bat_leaders(2016, 2016)
#head(d)
#d <- fg_bat_leaders(2016, 2016, qual=100)
#head(d)


playerid_lookup("Trout")
mike.trout <- 
  scrape_statcast_savant_batter("2016-04-01", "2016-09-30", batterid = 545361)
head(mike.trout)

playerid_lookup("Kershaw")
clayton.kershaw <- 
  scrape_statcast_savant_pitcher("2016-04-01", "2016-09-30", pitcherid = 477132)
head(arrange(clayton.kershaw, tfs_zulu))
tail(arrange(clayton.kershaw, tfs_zulu))
sort(unique(clayton.kershaw$batter))
sort(unique(clayton.kershaw$pitcher))

# As of 09 Feb '17, this seems to be returning at bats with Kershaw as the
#   batter, as opposed to him as the pitcher. 

# https://github.com/BillPetti/baseballr/blob/master/R/scrape_statcast_savant_pitcher.R
# http://billpetti.github.io/baseballr/data-acquisition-functions/
# http://billpetti.github.io/baseballr/metric-coding-calculation/



#' Query Statcast and PITCHf/x Data for Pitchers from baseballsavant.mlb.com
#'
#' This function allows you to query Statcast and PITCHf/x data as provided on baseballsavant.mlb.com and have that data returned as a dataframe.
#' @param start_date Date of first game for which you want data. Format must be in Y-d-m format.
#' @param end_date Date of last game for which you want data. Format must be in Y-d-m format.
#' @param pitcherid The MLBAM ID for the pitcher who's data you want to query.
#' @keywords MLB, sabermetrics, Statcast
#' @importFrom utils read.csv
#' @export
#' @examples
#' \dontrun{
#' scrape_statcast_savant_pitcher(start_date = "2016-04-06", 
#' end_date = "2016-04-15", pitcherid = 592789)
#' }

scrape_statcast_savant_pitcher <- function(start_date, end_date, pitcherid) {
  # Check to make sure args are in the correct format.
  if(!is.character(start_date) | !is.character(end_date)) {
    warning("Please wrap your dates in quotations in 'yyyy-mm-dd' format.")
    return(NULL)
  }
  # Check for other user errors.
  if(as.Date(start_date)<="2015-03-01") { # March 1, 2015 was the first dat of Spring Training.
    message("Some metrics such as Exit Velocity and Batted Ball Events have only been compiled since 2015.")
  }
  if(as.Date(start_date)<="2008-03-25") { # March 25, 2008 was the first dat of Spring Training.
    stop("The data are limited to the 2008 MLB season and after.")
    return(NULL)
  }
  if(as.Date(start_date)==Sys.Date()) {
    message("The data are collected daily at 3 a.m. Some of today's games may not be included.")
  }
  if(as.Date(start_date)>as.Date(end_date)) {
    stop("The start date is later than the end date.")        
    return(NULL)
  }
  
  # Base URL.
  url <- paste0("https://baseballsavant.mlb.com/statcast_search/csv?all=true&hfPT=&hfZ=&hfGT=R%7C&hfPR=&hfAB=&stadium=&hfBBT=&hfBBL=&player_lookup%5B%5D=",pitcherid,"&hfC=&season=all&player_type=pitcher&hfOuts=&pitcher_throws=&batter_stands=&start_speed_gt=&start_speed_lt=&perceived_speed_gt=&perceived_speed_lt=&spin_rate_gt=&spin_rate_lt=&exit_velocity_gt=&exit_velocity_lt=&launch_angle_gt=&launch_angle_lt=&distance_gt=&distance_lt=&batted_ball_angle_gt=&batted_ball_angle_lt=&game_date_gt=",start_date,"&game_date_lt=",end_date,"&team=&position=&hfRO=&home_road=&hfInn=&min_pitches=0&min_results=0&group_by=name&sort_col=pitches&player_event_sort=start_speed&sort_order=desc&min_abs=0&xba_gt=&xba_lt=&px1=&px2=&pz1=&pz2=&ss_gt=&ss_lt=&type=details&")
  
  # Do a try/catch to show errors that the user may encounter while downloading.
  tryCatch(
    {
      print("These data are from BaseballSevant and are property of MLB Advanced Media, L.P. All rights reserved.")
      print("Grabbing data, this may take a minute...")            
      payload <- utils::read.csv(url)
      
    },
    error=function(cond) {
      message(paste("URL does not seem to exist, please check your Internet connection:"))
      message("Original error message:")
      message(cond)
      return(NA)
    },
    warning=function(cond) {
      message(paste("URL caused a warning. Make sure your batterid and date range are correct:"))
      message("Original warning message:")
      message(cond)
      return(NULL)
    }
  )   
  # Clean up formatting.
  payload[payload=="null"] <- NA
  payload$game_date <- as.Date(payload$game_date, "%Y-%m-%d")
  payload$des <- as.character(payload$des)
  payload$game_pk <- as.character(payload$game_pk) %>% as.numeric()
  payload$on_1b <- as.character(payload$on_1b) %>% as.numeric()
  payload$on_2b <- as.character(payload$on_2b) %>% as.numeric()
  payload$on_3b <- as.character(payload$on_3b) %>% as.numeric()
  payload$px <- as.character(payload$px) %>% as.numeric()
  payload$pz <- as.character(payload$pz) %>% as.numeric()
  payload$hit_distance_sc <- as.character(payload$hit_distance_sc) %>% as.numeric()
  payload$hit_speed <- as.character(payload$hit_speed) %>% as.numeric()
  payload$hit_angle <- as.character(payload$hit_angle) %>% as.numeric()
  payload$effective_speed <- as.character(payload$effective_speed) %>% as.numeric()
  payload$release_spin_rate <- as.character(payload$release_spin_rate) %>% as.numeric()
  payload$release_extension <- as.character(payload$release_extension) %>% as.numeric()
  payload$barrel <- with(payload, ifelse(hit_angle <= 50 & hit_speed >= 98 & hit_speed * 1.5 - hit_angle >= 11 & hit_speed + hit_angle >= 124, 1, 0))
  message("URL read read and payload aquired successfully.")
  
  return(payload)
  
}

playerid_lookup("Kershaw")
clayton.kershaw <- 
  scrape_statcast_savant_pitcher("2016-04-01", "2016-09-30", pitcherid = 477132)
head(arrange(clayton.kershaw, tfs_zulu))
tail(arrange(clayton.kershaw, tfs_zulu))
sort(unique(clayton.kershaw$batter))
sort(unique(clayton.kershaw$pitcher))