R/parse_gameDetail_summary.R

In msenn/sihfapi: Access SIHF Statistics API

#' Parse Summary
#'
#' @inheritParams parse.gameDetail
#'
#' @return Parsed summary information from gameDetail
#'
#' @export
#'
#' @examples
#' gameDetail <- fetch_gameDetail(20171105078373)
#' parse.gameDetail.summary(gameDetail)
parse.gameDetail.summary <- function(gameDetail) {
  summary <- gameDetail$content$summary

  parse.gameDetail.summary.periods(summary$periods)
}

# Periods ---------------------------------------------------------------------

#' Parse Summary Periods
#'
#' @param periods List of summary period elements
#'
#' @return List of tibbles 'fouls' and 'goals' across all periods
parse.gameDetail.summary.periods <- function(periods) {

  res <- periods %>%
    map(parse.gameDetail.summary.period) %>%
    map(enframe) %>%
    set_names(as.character(seq(length(.)))) %>%
    enframe("period") %>%
    unnest() %>%
    spread(name, value)

  list(
    fouls = bind_rows(res$fouls),
    goals = bind_rows(res$goals)
  )
}

#' Parse Summary Period
#'
#' @param period Single summary period element
#'
#' @return List of tibbles containing information in summary period elements
parse.gameDetail.summary.period <- function(period) {
  list(
    fouls = parse.gameDetail.summary.period.child(period$fouls),
    goals = parse.gameDetail.summary.period.child(period$goals)
  )
}

#' Parse Summary Period Element
#'
#' @param x Summary period element ('fouls' or 'goals')
#'
#' @return Parsed tibble of information contained by summary period element
parse.gameDetail.summary.period.child <- function(x) {
  x %>%
    bind_rows() %>%
    mutate_at(vars(matches("[tT]ime")), parse_ms)
}