# \donttest{
library(nflplotR)
library(gt)
# Silence an nflreadr message that is irrelevant here
old <- options(nflreadr.cache_warning = FALSE)
df <- data.frame(
player_gsis = c("00-0033873",
"00-0026498",
"00-0035228",
"00-0031237",
"00-0036355",
"00-0019596",
"00-0033077",
"00-0012345",
"00-0031280"),
player_name = c("P.Mahomes",
"M.Stafford",
"K.Murray",
"T.Bridgewater",
"J.Herbert",
"T.Brady",
"D.Prescott",
"Non.Match",
"D.Carr")
)
# Replace player IDs with headshot images
table <- gt(df) |>
gt_nfl_headshots("player_gsis")
# Restore old options
options(old)
# }
Run the code above in your browser using DataLab