tests/testthat/test-nba_boxscoredefensive.R

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

# test_that("NBA Boxscore Defensive", {
#   skip_on_cran()
#   skip_on_ci()
#   x <- nba_boxscoredefensive(game_id = "0022200021")
#
#   cols_x1 <- c(
#     "GAME_ID",
#     "TEAM_ID",
#     "TEAM_ABBREVIATION",
#     "TEAM_CITY",
#     "PLAYER_ID",
#     "PLAYER_NAME",
#     "NICKNAME",
#     "START_POSITION",
#     "COMMENT",
#     "MIN",
#     "E_OFF_RATING",
#     "OFF_RATING",
#     "E_DEF_RATING",
#     "DEF_RATING",
#     "E_NET_RATING",
#     "NET_RATING",
#     "AST_PCT",
#     "AST_TOV",
#     "AST_RATIO",
#     "OREB_PCT",
#     "DREB_PCT",
#     "REB_PCT",
#     "TM_TOV_PCT",
#     "EFG_PCT",
#     "TS_PCT",
#     "USG_PCT",
#     "E_USG_PCT",
#     "E_PACE",
#     "PACE",
#     "PACE_PER40",
#     "POSS",
#     "PIE"
#   )
#
#   cols_x2 <- c(
#     "GAME_ID",
#     "TEAM_ID",
#     "TEAM_NAME",
#     "TEAM_ABBREVIATION",
#     "TEAM_CITY",
#     "MIN",
#     "E_OFF_RATING",
#     "OFF_RATING",
#     "E_DEF_RATING",
#     "DEF_RATING",
#     "E_NET_RATING",
#     "NET_RATING",
#     "AST_PCT",
#     "AST_TOV",
#     "AST_RATIO",
#     "OREB_PCT",
#     "DREB_PCT",
#     "REB_PCT",
#     "E_TM_TOV_PCT",
#     "TM_TOV_PCT",
#     "EFG_PCT",
#     "TS_PCT",
#     "USG_PCT",
#     "E_USG_PCT",
#     "E_PACE",
#     "PACE",
#     "PACE_PER40",
#     "POSS",
#     "PIE"
#   )
#   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")
#
# })