R/pwhl_season_id.R

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

#' @title  **PWHL Season IDs**
#' @description PWHL Season IDs lookup
#'
#' @return A data frame with season ID data
#' @import jsonlite
#' @import dplyr
#' @import httr
#' @importFrom glue glue
#' @export
#' @examples
#' \donttest{
#'   try(pwhl_season_id())
#' }

pwhl_season_id <- function(season, game_type = "regular") {

  season_id <- data.frame(
    "season_yr" = c(2024, 2024, 2024, 2025, 2025, 2025),
    "game_type_label" = c("preseason", "regular", "playoffs",
                    "preseason", "regular", "playoffs"),
    "season_id" = c(2, 1, 3, 4, 5, 6)
  )

  return(season_id)

}