R/get-steam-id-64.R

In josegallegos07/steamR: An interface to Steam's Web API

#' Get a 64-bit Steam ID
#'
#' @export
#' @param steam_key A Steam Web API Key.
#' @param steam_id A Steam ID
#'
#' @return a 64-bit Steam ID

get_steam_id_64 <- function(steam_key, steam_id) {
  args = paste0(ARG_KEY, steam_key, ARG_VANITY_URL, steam_id)
  url = paste0(STEAM_RESOLVE_VANITY_URL, args)
  json = get_json(url)
  return(json$response$steamid)
}