tests/testthat/test-fg_team_batter.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "Season",
  "#",
  "Team",
  "G",
  "AB",
  "PA",
  "H",
  "1B",
  "2B",
  "3B",
  "HR",
  "R",
  "RBI",
  "BB",
  "IBB",
  "SO",
  "HBP",
  "SF",
  "SH",
  "GDP",
  "SB",
  "CS",
  "AVG",
  "GB",
  "FB",
  "LD",
  "IFFB",
  "Pitches",
  "Balls",
  "Strikes",
  "IFH",
  "BU",
  "BUH",
  "BB_pct",
  "K_pct",
  "BB_K",
  "OBP",
  "SLG",
  "OPS",
  "ISO",
  "BABIP",
  "GB_FB",
  "LD_pct",
  "GB_pct",
  "FB_pct",
  "IFFB_pct",
  "HR_FB",
  "IFH_pct",
  "BUH_pct",
  "wOBA",
  "wRAA",
  "wRC",
  "Bat",
  "Fld",
  "Rep",
  "Pos",
  "RAR",
  "WAR",
  "Dol",
  "Spd",
  "wRC_plus",
  "WPA",
  "WPA_minus",
  "WPA_plus",
  "RE24",
  "REW",
  "pLI",
  "phLI",
  "PH",
  "WPA_LI",
  "Clutch",
  "FBall_pct",
  "FBv",
  "SL_pct",
  "SLv",
  "CT_pct",
  "CTv",
  "CB_pct",
  "CBv",
  "CH_pct",
  "CHv",
  "SF_pct",
  "SFv",
  "KN_pct",
  "KNv",
  "XX_pct",
  "PO_pct",
  "wFB",
  "wSL",
  "wCT",
  "wCB",
  "wCH",
  "wSF",
  "wKN",
  "wFB_C",
  "wSL_C",
  "wCT_C",
  "wCB_C",
  "wCH_C",
  "wSF_C",
  "wKN_C",
  "O-Swing_pct",
  "Z-Swing_pct",
  "Swing_pct",
  "O-Contact_pct",
  "Z-Contact_pct",
  "Contact_pct",
  "Zone_pct",
  "F-Strike_pct",
  "SwStr_pct",
  "BsR",
  "FA_pct_(sc)",
  "FT_pct_(sc)",
  "FC_pct_(sc)",
  "FS_pct_(sc)",
  "FO_pct_(sc)",
  "SI_pct_(sc)",
  "SL_pct_(sc)",
  "CU_pct_(sc)",
  "KC_pct_(sc)",
  "EP_pct_(sc)",
  "CH_pct_(sc)",
  "SC_pct_(sc)",
  "KN_pct_(sc)",
  "UN_pct_(sc)",
  "vFA_(sc)",
  "vFT_(sc)",
  "vFC_(sc)",
  "vFS_(sc)",
  "vFO_(sc)",
  "vSI_(sc)",
  "vSL_(sc)",
  "vCU_(sc)",
  "vKC_(sc)",
  "vEP_(sc)",
  "vCH_(sc)",
  "vSC_(sc)",
  "vKN_(sc)",
  "FA-X_(sc)",
  "FT-X_(sc)",
  "FC-X_(sc)",
  "FS-X_(sc)",
  "FO-X_(sc)",
  "SI-X_(sc)",
  "SL-X_(sc)",
  "CU-X_(sc)",
  "KC-X_(sc)",
  "EP-X_(sc)",
  "CH-X_(sc)",
  "SC-X_(sc)",
  "KN-X_(sc)",
  "FA-Z_(sc)",
  "FT-Z_(sc)",
  "FC-Z_(sc)",
  "FS-Z_(sc)",
  "FO-Z_(sc)",
  "SI-Z_(sc)",
  "SL-Z_(sc)",
  "CU-Z_(sc)",
  "KC-Z_(sc)",
  "EP-Z_(sc)",
  "CH-Z_(sc)",
  "SC-Z_(sc)",
  "KN-Z_(sc)",
  "wFA_(sc)",
  "wFT_(sc)",
  "wFC_(sc)",
  "wFS_(sc)",
  "wFO_(sc)",
  "wSI_(sc)",
  "wSL_(sc)",
  "wCU_(sc)",
  "wKC_(sc)",
  "wEP_(sc)",
  "wCH_(sc)",
  "wSC_(sc)",
  "wKN_(sc)",
  "wFA_C_(sc)",
  "wFT_C_(sc)",
  "wFC_C_(sc)",
  "wFS_C_(sc)",
  "wFO_C_(sc)",
  "wSI_C_(sc)",
  "wSL_C_(sc)",
  "wCU_C_(sc)",
  "wKC_C_(sc)",
  "wEP_C_(sc)",
  "wCH_C_(sc)",
  "wSC_C_(sc)",
  "wKN_C_(sc)",
  "O-Swing_pct_(sc)",
  "Z-Swing_pct_(sc)",
  "Swing_pct_(sc)",
  "O-Contact_pct_(sc)",
  "Z-Contact_pct_(sc)",
  "Contact_pct_(sc)",
  "Zone_pct_(sc)",
  "Pace",
  "Def",
  "wSB",
  "UBR",
  "AgeRng",
  "Off",
  "Lg",
  "wGDP",
  "Pull_pct",
  "Cent_pct",
  "Oppo_pct",
  "Soft_pct",
  "Med_pct",
  "Hard_pct",
  "TTO_pct",
  "CH_pct_pi",
  "CS_pct_pi",
  "CU_pct_pi",
  "FA_pct_pi",
  "FC_pct_pi",
  "FS_pct_pi",
  "KN_pct_pi",
  "SB_pct_pi",
  "SI_pct_pi",
  "SL_pct_pi",
  "XX_pct_pi",
  "vCH_pi",
  "vCS_pi",
  "vCU_pi",
  "vFA_pi",
  "vFC_pi",
  "vFS_pi",
  "vKN_pi",
  "vSB_pi",
  "vSI_pi",
  "vSL_pi",
  "vXX_pi",
  "CH-X_pi",
  "CS-X_pi",
  "CU-X_pi",
  "FA-X_pi",
  "FC-X_pi",
  "FS-X_pi",
  "KN-X_pi",
  "SB-X_pi",
  "SI-X_pi",
  "SL-X_pi",
  "XX-X_pi",
  "CH-Z_pi",
  "CS-Z_pi",
  "CU-Z_pi",
  "FA-Z_pi",
  "FC-Z_pi",
  "FS-Z_pi",
  "KN-Z_pi",
  "SB-Z_pi",
  "SI-Z_pi",
  "SL-Z_pi",
  "XX-Z_pi",
  "wCH_pi",
  "wCS_pi",
  "wCU_pi",
  "wFA_pi",
  "wFC_pi",
  "wFS_pi",
  "wKN_pi",
  "wSB_pi",
  "wSI_pi",
  "wSL_pi",
  "wXX_pi",
  "wCH_C_pi",
  "wCS_C_pi",
  "wCU_C_pi",
  "wFA_C_pi",
  "wFC_C_pi",
  "wFS_C_pi",
  "wKN_C_pi",
  "wSB_C_pi",
  "wSI_C_pi",
  "wSL_C_pi",
  "wXX_C_pi",
  "O-Swing_pct_pi",
  "Z-Swing_pct_pi",
  "Swing_pct_pi",
  "O-Contact_pct_pi",
  "Z-Contact_pct_pi",
  "Contact_pct_pi",
  "Zone_pct_pi",
  "Pace_pi"
)

test_that("FanGraphs Team Batting", {
  skip_on_cran()
  
  x <- fg_team_batter(x = 2015, y = 2015, qual = 400)
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})