tests/testthat/test-wnba_videoevents.R

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

test_that("WNBA Video Events", {
  skip_on_cran()
  skip_on_ci()
  skip_wnba_stats_test()

  skip("Deprecated: wnba_videoevents() endpoint returns HTTP 200 with zero rows upstream; no replacement exists (wehoop#75).")
  x <- wnba_videoevents(game_id = '1022200075', game_event_id = '10')

  if (length(x) == 0 || is.null(x[[1]]) || !is.data.frame(x[[1]]) || nrow(x[[1]]) == 0) {
    fail("No rows returned from endpoint at test time")
    return(invisible(NULL))
  }
  
  cols_x1 <- c(
    "uuid",
    "dur",
    "stt",
    "stp",
    "sth",
    "stw",
    "mtt",
    "mtp",
    "mth",
    "mtw",
    "ltt",
    "ltp",
    "lth",
    "ltw"
  )
  
  cols_x2 <- c(
    "gi",
    "ei",
    "y",
    "m",
    "d",
    "gc",
    "p",
    "dsc",
    "ha",
    "va",
    "hpb",
    "hpa",
    "vpb",
    "vpa",
    "pta"
  )
  
  expect_in(sort(cols_x1), sort(colnames(x[[1]])))
  expect_s3_class(x[[1]], "data.frame")
  expect_in(sort(cols_x2), sort(colnames(x[[2]])))
  expect_s3_class(x[[2]], "data.frame")
  
  Sys.sleep(3)
  
})