tests/testthat/test-nba_data_pbp.R

In hoopR: Access Men's Basketball Play by Play Data

test_that("NBA Data PBP", {
  skip_on_cran()
  skip_on_ci()
  x <- nba_data_pbp(game_id = "0021900001")

  cols <- c(
    "game_id",
    "league",
    "period",
    "event_num",
    "clock",
    "description",
    "locX",
    "locY",
    "opt1",
    "opt2",
    "event_action_type",
    "event_type",
    "team_id",
    "offense_team_id",
    "player1_id",
    "player2_id",
    "player3_id",
    "home_score",
    "away_score",
    "order"
  )

  expect_equal(sort(colnames(x)), sort(cols))
  expect_s3_class(x, "data.frame")

  Sys.sleep(3)

})