tests/testthat/test-mlb_batting_orders.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "id", "fullName", "abbreviation", 
  "batting_order", "batting_position_num", 
  "team", "teamName", "teamID"
)

test_that("MLB Batting Orders", {
  skip_on_cran()
  
  x <- mlb_batting_orders(game_pk=566001)
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})