tests/testthat/test-theme-elements.R

In nflverse/nflplotR: NFL Logo Plots in 'ggplot2' and 'gt'

test_that("logo element works", {
  # skip because of the multithread problem
  skip_on_cran()
  library(ggplot2)

  team_abbr <- c("LAC", "KC")

  set.seed(20220105)

  df <- data.frame(
    random_value = runif(length(team_abbr), 0, 1),
    teams = team_abbr
  )

  # use logos for x-axis
  p1 <- ggplot(df, aes(x = teams, y = random_value)) +
    geom_col(width = 0.01) +
    theme_void() +
    theme(axis.text.x = element_nfl_logo())

  # use logos for y-axis
  p2 <- ggplot(df, aes(y = teams, x = random_value)) +
    geom_col(width = 0.01) +
    theme_void() +
    theme(axis.text.y = element_nfl_logo())

  vdiffr::expect_doppelganger("p1", p1)
  vdiffr::expect_doppelganger("p2", p2)

  # Team name mismatch
  p3 <- data.frame(a = c("LAC", "LARRR"), b = 1:2, c = 10:11) |>
    ggplot(aes(x = b, y = c)) +
    geom_point() +
    facet_wrap(vars(a)) +
    theme(
      strip.text = element_nfl_wordmark()
    )
  expect_snapshot(out <- ggplotGrob(p3))

  # GSIS ID mismatch
  p4 <- data.frame(a = c("00-0033077", "00-0012345"), b = 1:2, c = 10:11) |>
    ggplot(aes(x = b, y = c)) +
    geom_point() +
    facet_wrap(vars(a)) +
    theme(
      strip.text = element_nfl_headshot()
    )
  expect_snapshot(out <- ggplotGrob(p4))
})