Nothing
#' Create an NHL API URL for players
#'
#' @param playerIds `integer()`, vector of one or more ids of the
#' players. The ids correspond to the ids expected by the NHL
#' API people endpoint. For most cases the `playerNames` argument
#' can be provided for more convenient usage.
#'
#' @examples
#' nhlapi:::nhl_url_players(playerIds = c(8477474, 8477475))
#'
#' @return `character()`, API URLs, same length as `playerIds`.
nhl_url_players <- function(playerIds) {
nhl_url(endPoint = "people", suffixes = list(playerIds))
}
#' Retrieve metadata for players based on names or ids
#'
#' Retrieves information on players from the NHL API based on
#' `playerNames` or `playerIds`. If `playerNames` are provided,
#' they take precedence over `playerIds`.
#'
#' @inheritParams nhl_url_players
#' @inheritParams util_map_player_ids
#'
#' @return `data.frame`, with information on selected players.
#' @export
#'
#' @examples \dontrun{
#' # With player names
#' nhl_players(c("joe SAKIC", "patrick roy"))
#'
#' # With playerIds
#' nhl_players(playerIds = c(8451101, 8458554))
#' }
nhl_players <- function(playerNames, playerIds = NULL) {
if (missing(playerNames) && is.null(playerIds)) {
stop("Please provide either playerNames or playerIds.")
}
if (!missing(playerNames)) {
playerIds <- util_prepare_player_ids(playerNames)
}
x <- nhl_url_players(playerIds)
x <- nhl_get_data(x)
x <- util_remove_get_data_errors(x)
x <- nhl_process_results(x, elName = "people")
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.