tests/testthat/test-plots-and-features-volleyball.R

In sportsdataverse/sportyR: Plot Scaled 'ggplot' Representations of Sports Playing Surfaces

test_that(
  "geom_volleyball() returns a plot when called with a league", {
    # Create a volleyball court plot
    ncaa_court <- geom_volleyball("ncaa")

    # Check the class of the resulting plot. This should be "gg" and "ggplot"
    expect_equal(class(ncaa_court)[1], "gg")
    expect_equal(class(ncaa_court)[2], "ggplot")
  }
)

test_that(
  "geom_volleyball() can successfully transform coordinates", {
    # Create a volleyball court plot
    fivb_court <- geom_volleyball("fivb", court_units = "ft", rotation = 270)

    # Check the class of the resulting plot. This should be "gg" and "ggplot"
    expect_equal(class(fivb_court)[1], "gg")
    expect_equal(class(fivb_court)[2], "ggplot")
  }
)