tests/testthat/test-fg_milb_pitcher_game_logs.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "player_name",
  "minor_playerid",
  "Date",
  "Team",
  "Level",
  "Opp",
  "W",
  "L",
  "ERA",
  "G",
  "GS",
  "CG",
  "ShO",
  "SV",
  "IP",
  "TBF",
  "H",
  "R",
  "ER",
  "HR",
  "BB",
  "IBB",
  "HBP",
  "WP",
  "BK",
  "SO",
  "K/9",
  "BB/9",
  "K/BB",
  "HR/9",
  "K%",
  "K-BB%",
  "BB%",
  "AVG",
  "WHIP",
  "BABIP",
  "LOB%",
  "FIP",
  "gamedate",
  "dh",
  "UPId",
  "MLBAMId",
  "MinorMasterId",
  "RRId",
  "FirstName",
  "LastName",
  "firstLastName",
  "Height",
  "Weight",
  "BirthDate",
  "Bats",
  "Throws",
  "Position",
  "BirthCity",
  "College",
  "Age"
)

test_that("FanGraphs MiLB Pitcher Game Logs", {
  skip_on_cran()
  
  x <- fg_milb_pitcher_game_logs(playerid = "sa829043", year = 2021)
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})