tests/testthat/test-nba_videoeventsasset.R

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

test_that("NBA Video Events Asset", {
    skip_on_cran()
    skip_on_ci()
    skip_nba_stats_test()

    # Soft-deprecated (lifecycle::deprecate_warn): 2026-08-24 probe sweep found
    # this endpoint returns HTTP 200 with zero rows; the call still proceeds.
    x <- nba_videoeventsasset(game_id = "0021700807", game_event_id = 10)

    # videoeventsasset has no predefined result set structure,
    # so we just verify the call doesn't error and returns something

    expect_true(!is.null(x))

    Sys.sleep(3)
})