tests/testthat/test-nba_videodetailsasset.R

In saiemgilani/kenpomR: Access Men's Basketball Play by Play Data

test_that("NBA Video Details Asset", {
  skip_on_cran()
  skip_on_ci()

  x <- nba_videodetailsasset(player_id = "2544", team_id = "1610612747")

  cols_x1 <- c(
    "uuid",
    "sdur",
    "surl",
    "sth",
    "mdur",
    "murl",
    "mth",
    "ldur",
    "lurl",
    "lth",
    "vtt",
    "scc",
    "srt"
  )

  cols_x2 <- c(
    "gi",
    "ei",
    "y",
    "m",
    "d",
    "gc",
    "p",
    "dsc",
    "ha",
    "hid",
    "va",
    "vid",
    "hpb",
    "hpa",
    "vpb",
    "vpa",
    "pta"
  )

  expect_equal(sort(colnames(x[[1]])), sort(cols_x1))
  expect_s3_class(x[[1]], "data.frame")
  expect_equal(sort(colnames(x[[2]])), sort(cols_x2))
  expect_s3_class(x[[2]], "data.frame")

  Sys.sleep(3)

})