tests/testthat/test-ncaa_team_player_stats.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "year",
  "team_name",
  "team_id",
  "conference_id",
  "conference",
  "division",
  "player_id",
  "player_url",
  "player_name",
  "Yr",
  "Pos",
  "Jersey",
  "GP",
  "GS",
  "BA",
  "OBPct",
  "SlgPct",
  "R",
  "AB",
  "H",
  "2B",
  "3B",
  "TB",
  "HR",
  "RBI",
  "BB",
  "HBP",
  "SF",
  "SH",
  "K",
  "DP",
  "CS",
  "Picked",
  "SB",
  "RBI2out"
)

test_that("NCAA Team Player Stats", {
  skip_on_cran()
  
  x <- ncaa_team_player_stats(team_id = 255, year = 2021, type = "batting")
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})