tests/testthat/test-espn_wbb_pbp_participants.R

In wehoop: Access Women's Basketball Play by Play Data

# Regression tests for issue #44: espn_wbb_pbp() shares the same
# unnest_wider("participants") crash risk as espn_wnba_pbp() ("'names'
# attribute [n] must be the same length as the vector [m]") when a game's
# plays don't max out at exactly 2 participants. These tests exercise the
# exact unnest_wider + dynamic-naming + NA-padding sequence used in
# R/espn_wbb_data.R (parse_wbb_pbp) against stub ESPN JSON shapes, without
# hitting the network.

build_wbb_aths <- function(plays) {
  plays <- plays %>%
    tidyr::unnest_wider("participants")
  suppressWarnings(
    aths <- plays %>%
      dplyr::group_by(.data$id) %>%
      dplyr::select(
        "id",
        "athlete.id"
      ) %>%
      tidyr::unnest_wider("athlete.id", names_sep = "_")
  )
  names(aths) <- c("play.id", paste0("athlete.id.", seq_len(ncol(aths) - 1)))
  for (nm in paste0("athlete.id.", 1:2)) {
    if (!nm %in% names(aths)) aths[[nm]] <- NA_character_
  }
  aths <- aths[, c("play.id", paste0("athlete.id.", 1:2))]
  aths
}

test_that("WBB participants: 1-max-participant game does not error and pads athlete.id.2", {
  skip_on_cran()
  plays <- dplyr::tibble(
    id = c("1", "2"),
    participants = list(
      dplyr::tibble(athlete.id = c("100")),
      dplyr::tibble(athlete.id = c("200"))
    )
  )

  aths <- expect_no_error(build_wbb_aths(plays))

  expect_equal(names(aths), c("play.id", "athlete.id.1", "athlete.id.2"))
  expect_true(all(is.na(aths$athlete.id.2)))
  expect_equal(nrow(aths), 2)
})

test_that("WBB participants: 4-participant play does not error and truncates to athlete.id.2", {
  skip_on_cran()
  plays <- dplyr::tibble(
    id = c("1"),
    participants = list(
      dplyr::tibble(athlete.id = c("100", "101", "102", "103"))
    )
  )

  aths <- expect_no_error(build_wbb_aths(plays))

  expect_equal(names(aths), c("play.id", "athlete.id.1", "athlete.id.2"))
  expect_equal(nrow(aths), 1)
})