tests/testthat/test-bref_team_results.R

In baseballr: Acquiring and Analyzing Baseball Data

# 
# cols <- c(
#   "Gm", "Date", "Tm", "H_A", "Opp", "Result",
#   "R", "RA", "Inn", "Record", "Rank", "GB",
#   "Win", "Loss", "Save", 
#   "Time", "D/N", "Attendance", "cLI", "Streak", "Orig_Scheduled", "Year"
# )
# 
# test_that("BRef Team Results", {
#   skip_on_cran()
#   skip_on_ci()
#   
#   x <- bref_team_results(Tm="TBR", year=2021)
#   
#   expect_equal(colnames(x), cols)
#   expect_s3_class(x, "data.frame")
# })