R/fetch_schedule.R

In N1KG/rockey:

#' fetch_schedule
#'
#' fetch schedule info between given dates from the nhl api
#'
#' @param start_date a string written as mm/dd/yyyy that represents the start date of the desired schedule period, default to empty
#' @param end_date a string written as mm/dd/yyyy that represents the end date of the desired schedule period, default to empty
#' @param team_id a number or string that represent the id of an nhl team, if not feed return schedule for all teams
#'
#' @return data.table that contains all schedule info for the period between the given dates, return the schedule for the current day if no dates are passed as arguments
#'
#' @import data.table
#' @import httr
#'
#' @export
#'
#' @examples
#' fetch_schedule("03/16/2019", "03/18/2019")
#' fetch_schedule(team_id = 8)
#' fetch_schedule("01/16/2019", "03/18/2019", 8)

fetch_schedule <- function(start_date = "", end_date = "", team_id = "") {
  url  <- "https://statsapi.web.nhl.com"
  path <- paste0("/api/v1/schedule?startDate=",start_date,"&endDate=",end_date,"&teamId=", team_id)

  r <- GET(url = url, path = path)
  r_content <- content(r, "parsed")$dates
  #return(r_content)
  rbindlist(lapply(r_content , function(date) {
    rbindlist(lapply(date$game, function(game) {
                  data.table(gamePk = game$gamePk, gameDate = game$gameDate, away_team_id = game$teams$away$team$id,
                  home_team_id = game$teams$home$team$id, away_team_name = game$teams$away$team$name, home_team_name = game$teams$home$team$name)
              }), fill = T)[ , date := date$date][]
  }), fill = T)
  #to do
  #format more info about each games

}