R/nhl_draft_year.R

In benhowell71/fastRhockey: Functions to Access Professional Women's Hockey League and National Hockey League Play by Play Data

#' @title **NHL Draft by Year**
#' @description Returns information on draft for a given year
#' @param year Draft year (XXXX)
#' @return Returns a data frame:
#'     * year -
#'     * round -
#'     * pick_overall -
#'     * pick_in_round -
#'     * team_id -
#'     * team_name -
#'     * team_link -
#'     * prospect_id -
#'     * prospect_full_name -
#'     * prospect_link -
#' @keywords NHL Draft Year
#' @import rvest
#' @importFrom rlang .data
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr mutate filter select rename bind_cols bind_rows
#' @importFrom tidyr unnest unnest_wider everything
#' @importFrom janitor clean_names
#' @export
#' @examples
#' \donttest{
#'    try(nhl_draft_year(year=2020))
#' }
nhl_draft_year <- function(year){

  base_url <- "https://statsapi.web.nhl.com/api/v1/draft/"

  full_url <- paste0(base_url, year)


  res <- httr::RETRY("GET", full_url)

  # Check the result
  check_status(res)

  tryCatch(
    expr = {
      resp <- res %>%
        httr::content(as = "text", encoding = "UTF-8")
      draft_df <- jsonlite::fromJSON(resp)[["drafts"]]
      draft_df <- jsonlite::fromJSON(jsonlite::toJSON(draft_df),flatten=TRUE)
      draft_df <- draft_df[["rounds"]][[1]] %>%
        tidyr::unnest_longer("picks") %>%
        dplyr::select("picks")
      draft_df <- draft_df$picks %>%
        janitor::clean_names() %>%
        as.data.frame() %>%
        make_fastRhockey_data("NHL Draft Year data from NHL.com",Sys.time())

    },
    error = function(e) {
      message(glue::glue("{Sys.time()}: Invalid arguments or no draft data for {year} available!"))
    },
    warning = function(w) {
    },
    finally = {
    }
  )
  return(draft_df)
}