R/parse_gameDetail.R

In msenn/sihfapi: Access SIHF Statistics API

#' Parse Game Detail
#'
#' Parse game detail object as returned by \code{fetch_gameDetail()} into a set of flat tibbles.
#'
#' @param gameDetail SIHF API gameDetail object (see \code{fetch_gameDetail()})
#'
#' @return Tibbles containing the parsed information from game detail. Moste information is nested in the list columns.
#' @export
#'
#' @examples
#' gameDetail <- fetch_gameDetail(20171105078373)
#' gameDetail.parsed <- parse.gameDetail(gameDetail)
parse.gameDetail <- function(gameDetail) {
  summary <- parse.gameDetail.summary(gameDetail)
  stats <-  parse.gameDetail.stats(gameDetail)
  lineUp <- parse.gameDetail.lineUp(gameDetail)
  details <- parse.gameDetail.details(gameDetail)

  parse.gameDetail.header(gameDetail) %>%
    nest(-gameId, .key = "header") %>%

    mutate(
      venue            = list(details$venue),

      summary_goals    = list(summary$goals),
      summary_fouls    = list(summary$fouls),

      result           = list(parse.gameDetail.result(gameDetail)),

      stats_players    = list(stats$players),
      stats_goalies    = list(stats$goalies),
      stats_teams      = list(stats$teams),

      lineUp_players   = list(lineUp$players),
      lineUp_coaches   = list(lineUp$coaches),

      players          = list(parse.gameDetail.players(gameDetail)),

      details_teams    = list(details$teams),
      details_referees = list(details$referees)
    )
}