R/pull_player_heroes.R

In ekholme/rdota: Functions to Get and Clean Data from the OpenDota API

get_indiv_player_hero <- function(obj, player_num) {
  
  ids <- gather_player_match_identifiers(obj, player_num)
  
  hero <- purrr::pluck(obj, "players", player_num, "hero_id")
  
  t <- tibble::as_tibble(ids)
  
  t$hero_id <- hero
  
  t
}

#' Pull Player Heroes
#' 
#' @description Pull the hero ids/hero names for all players in a given match.
#'
#' @param obj A 'parsed_match' object.
#' @param include_hero_names logical. If TRUE, will include a column with hero names as well as hero id. If FALSE, will only include hero id.
#'
#' @return A 10x5 tibble
#' @export
#'
#' @examples \dontrun{
#' a <- get_match('6183712050')
#' b <- pull_player_heroes(a)
#' }
pull_player_heroes <- function(obj, include_hero_names = TRUE) {
  
  check_parsed_match(obj, "pull_player_heroes")
  
  check_logical_arg(include_hero_names, "include_hero_names")
  
  tmp <- purrr::map_dfr(1:10, ~get_indiv_player_hero(obj = obj, player_num = .x))
  
  if (include_hero_names == TRUE) {
    
    h <- dplyr::select(rdota::heroes, id, hero_name = localized_name)
    
    dplyr::left_join(tmp, h, by = c("hero_id" = "id"))
    
  } else tmp
  
}